Email an mehrere Email-Adressen aus einer Zelle

Forumthread: Email an mehrere Email-Adressen aus einer Zelle

05.03.2015 14:55:09

Christian

Hallo,
ich habe folgendes Problem:
Ich möchte eine autom. Email an mehrere Email Adressen, die in einer Zelle Hinterlegt sind, verschicken. Es gibt jedoch auch Zellen, in der nur eine Email steht (das funktioniert aber!).
Die Email Adressen in der Zelle habe ich so geschrieben:
xyz@bla.de; xyz@bla1.de
...trotzdem nimmt er nur die erste Email.
Code sieht so aus:

Sub AUTOMATISIERTE_EMAIL()
Dim olApp As Object
Dim WsShell
Set olApp = CreateObject("Outlook.Application")
Set sAdress = Range("D4")
Set sSubject1 = Range("A4")
Set sSubject2 = Range("M4")
sBody = Range("U1").Value
Dim IntZeile As Integer
For IntZeile = 4 To 1000
If UCase(Cells(IntZeile, 11)) = "OK" Then
With olApp.CreateItem(0)
.To = sAdress.Offset(IntZeile - 1, 0).Value 'Empfänger"
.Subject = " Die Opportunity " & sSubject1.Offset(IntZeile - 1, 0).Value & " endet am: " &  _
sSubject2.Offset(IntZeile - 1, 0).Value 'Betreff
.Body = sBody 'Nachricht
.ReadReceiptRequested = False 'Lesebestätigung aus
.Display 'Email anzeigen
End With
End If
Next
End Sub

Danke für Eure Hilfe!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Email an mehrere Email-Adressen aus einer Zelle

07.03.2015 16:13:17

Peter

AW: Email an mehrere Email-Adressen aus einer Zelle

07.03.2015 16:13:17

Peter

Hallo Christian
bei mir funzt

Sub AUTOMATISIERTE_EMAIL()
Dim olApp As Object
Dim WsShell
Set olApp = CreateObject("Outlook.Application")
Tabelle2.Activate
Set sAdress = Range("A1")
Set sSubject1 = Range("A2")
Set sSubject2 = Range("A3")
sBody = Range("A4").Value
Dim IntZeile As Integer
With olApp.CreateItem(0)
.To = Cells(1, 1).Text 'sAdress.Offset(IntZeile - 1, 0).Value 'Empfänger"
.Subject = " Die Opportunity " & sSubject1.Offset(IntZeile - 1, 0).Value & " endet am:  _
" & sSubject2.Offset(IntZeile - 1, 0).Value 'Betreff
.Body = Cells(4, 1).Text 'sBody 'Nachricht
.ReadReceiptRequested = False 'Lesebestätigung aus
.Display 'Email anzeigen
Stop
End With
End Sub

Hab zwar den Script etwas angepasst, weil mit deine Schreibweise etwas fremd ist - vielleicht liegt es daran.Ich habe es mit 4 Mailadressen die durch ";" getrennt sind probiert.
mfg
Pepi

Infobox / Tutorial

E-Mail an mehrere Empfänger aus Excel versenden

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um eine E-Mail an mehrere Empfänger aus Excel zu versenden, kannst Du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ > „Einfügen“ > „Modul“.

Kopiere den folgenden Code in das Modul:

Sub AUTOMATISIERTE_EMAIL()
   Dim olApp As Object
   Set olApp = CreateObject("Outlook.Application")
   Dim sAdress As String
   Dim sSubject As String
   Dim sBody As String

   sAdress = Range("D4").Value 'E-Mail-Adressen in Zelle D4
   sSubject = Range("A4").Value 'Betreff
   sBody = Range("U1").Value 'Nachricht

   With olApp.CreateItem(0)
       .To = sAdress 'E-Mail-Adressen
       .Subject = sSubject
       .Body = sBody
       .ReadReceiptRequested = False
       .Display 'E-Mail anzeigen
   End With
End Sub

Passe die Zellreferenzen an, falls Deine E-Mail-Adressen in anderen Zellen stehen.
Schließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro aus: Drücke ALT + F8, wähle „AUTOMATISIERTE_EMAIL“ und klicke auf „Ausführen“.

Häufige Fehler und Lösungen

Problem: Nur die erste E-Mail-Adresse wird versendet.
- Lösung: Stelle sicher, dass die E-Mail-Adressen in einer Zelle durch ein Semikolon (;) getrennt sind. Beispiel: xyz@bla.de; xyz@bla1.de.
Problem: Makro funktioniert nicht.
- Lösung: Überprüfe, ob Makros in Deinen Excel-Einstellungen aktiviert sind. Gehe zu „Datei“ > „Optionen“ > „Sicherheitscenter“ > „Einstellungen für das Sicherheitscenter“ und aktiviere Makros.

Alternative Methoden

E-Mail-Adressen verketten: Du kannst die E-Mail-Adressen in Excel mithilfe der Funktion VERKETTEN oder TEXTVERKETTEN kombinieren, bevor Du sie im Makro verwendest.
Outlook-Integration: Wenn Du nicht mit VBA arbeiten möchtest, kannst Du die E-Mail-Adressen auch manuell in Outlook kopieren, indem Du sie aus der Excel-Zelle kopierst und in das „An“-Feld einfügst.

Praktische Beispiele

Beispiel 1: Wenn Du E-Mail-Adressen in der Zelle D4 hast, verwende den Code, um eine E-Mail an mehrere Empfänger zu senden.
Beispiel 2: Du kannst das Makro erweitern, um E-Mails an mehrere Zeilen zu senden, indem Du eine Schleife über die Zeilen einfügst, in denen die E-Mail-Adressen stehen.

Tipps für Profis

Verwende mailto:: Du kannst auch mailto:-Links in Excel verwenden, um E-Mails an mehrere Empfänger zu versenden. Beispiel: =HYPERLINK("mailto:xyz@bla.de;xyz@bla1.de", "E-Mail senden").
Automatisierung: Überlege, wie Du das Makro automatisieren kannst, um regelmäßig E-Mails zu versenden, z.B. durch das Einfügen eines Timers oder durch das Auslösen beim Öffnen der Datei.

FAQ: Häufige Fragen

1. Wie kann ich E-Mail-Adressen aus Excel in eine E-Mail einfügen?
Du kannst die E-Mail-Adressen in einer Zelle angeben und dann das oben beschriebene Makro verwenden, um sie automatisch in eine neue E-Mail einzufügen.

2. Funktioniert das auch mit anderen E-Mail-Anbietern?
Das Makro funktioniert am besten mit Outlook. Für andere Anbieter kannst Du ähnliche Funktionen verwenden, aber die Implementierung muss möglicherweise angepasst werden.

3. Wie viele E-Mail-Adressen kann ich versenden?
Das hängt von der maximalen Anzahl der Empfänger ab, die Dein E-Mail-Provider erlaubt. In der Regel kannst Du jedoch viele E-Mail-Adressen in einer Zeile verketten.

Beliebteste Forumthreads (12 Monate)

Email an mehrere Email-Adressen aus einer Zelle

Forumthread: Email an mehrere Email-Adressen aus einer Zelle

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

E-Mail an mehrere Empfänger aus Excel versenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread