Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Email an mehrere Email-Adressen aus einer Zelle

Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 10:39:41
Christian
Hallo,
ich habe bereits geschafft, Emails per Button automatisch zu versenden, jedoch zieht sich Outlook nur die Adressen für die "To" Zeile. Mein Anliegen wäre, eine zweite Email Adresse direkt ins "CC" zu kopieren.
Kann mir jemand helfen?
Hier mein Code:
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("V1").Value
Dim IntZeile As Integer
For IntZeile = 4 To 5000
If Cells(IntZeile, 11) = "OK" Then
With olApp.CreateItem(0)
.To = sAdress.Offset(IntZeile - 4, 0).Value 'Empfänger"
.Subject = " Die Opportunity " & sSubject1.Offset(IntZeile - 4, 0).Value & " endet am: " &  _
sSubject2.Offset(IntZeile - 4, 0).Value 'Betreff
.Body = sBody 'Nachricht
.ReadReceiptRequested = False 'Lesebestätigung aus
.Display 'Email anzeigen
End With
End If
Next
End Sub

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 10:45:22
Nepumuk
Hallo,
einfach:
.CC = Weitere Empfänger
.BCC = BilndCopy an Empfänger
Gruß
Nepumuk

AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 10:45:26
Rudi
Hallo,
eine zweite Email Adresse direkt ins "CC" zu kopieren.
was hindert dich?
.CC= DieAndereZelle
Gruß
Rudi

Anzeige
AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 10:48:26
Christian
Die Zeilen sollen dann aber nach unten kopiert werden wie bei ".to". Also nicht nur aus einer Zelle, sondern in den nachfolgenden auch. Siehe Code mit .to und sAdress.

AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 10:50:06
Rudi
Hallo,
dann verfahre analog.
Gruß
Rudi

AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 10:51:34
Christian
Präzisere Hilfestellung wäre super :)

Anzeige
AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 10:55:36
Rudi
weiß ich wo du deine CC-Adressen stehen hast?
Gruß
Rudi

AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 10:57:32
Christian
Bis jetzt in der gleichen Zelle wie die .to Adressen...?

AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 10:59:52
Rudi
warum willst du dem Empfänger zusätzlich eine Kopie schicken?

Anzeige
AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 11:02:19
Christian
Ich möchte Email Adresse 1 (xyz@bla.de) in die .to Zeile und Email Adresse 2 (bla@bla.de) ins .CC setzen.

dann mach das. Bin raus.
10.03.2015 11:11:01
Rudi

AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 11:07:54
Klaus

Sub AUTOMATISIERTE_EMAIL()
Dim olApp As Object
Dim WsShell
Set olApp = CreateObject("Outlook.Application")
Set sAdress = Range("D4")
       Set sAdressCC = Range("X57")
Set sSubject1 = Range("A4")
Set sSubject2 = Range("M4")
sBody = Range("V1").Value
Dim IntZeile As Integer
For IntZeile = 4 To 5000
If Cells(IntZeile, 11) = "OK" Then
With olApp.CreateItem(0)
.To = sAdress.Offset(IntZeile - 4, 0).Value 'Empfänger"
       .cc = sAdressCC.Offset(IntZeile - 4, 0).Value 'CC
.Subject = " Die Opportunity " & sSubject1.Offset(IntZeile - 4, 0).Value & " endet am: "  _
& _
sSubject2.Offset(IntZeile - 4, 0).Value 'Betreff
.Body = sBody 'Nachricht
.ReadReceiptRequested = False 'Lesebestätigung aus
.Display 'Email anzeigen
End With
End If
Next
Grüße,
Klaus M.vdT.

Anzeige
AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 11:12:31
Christian
Herzlichen Dank Klaus!!

AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 11:34:23
Christian
Irgendwie tut sich nun nichts mehr, wenn ich auf Start klicke - habe ich was vergessen?:
Sub AUTOMATISIERTE_EMAIL()
Dim olApp As Object
Dim WsShell
Set olApp = CreateObject("Outlook.Application")
Set sAdress = Range("D4")
Set sAdressCC = Range("E4")
Set sSubject1 = Range("A4")
Set sSubject2 = Range("N4")
sBody = Range("W1").Value
Dim IntZeile As Integer
For IntZeile = 4 To 5000
If Cells(IntZeile, 11) = "OK" Then
With olApp.CreateItem(0)
.To = sAdress.Offset(IntZeile - 4, 0).Value 'Empfänger"
.cc = sAdressCC.Offset(IntZeile - 4, 0).Value 'CC
.Subject = " Die Opportunity " & sSubject1.Offset(IntZeile - 4, 0).Value & " endet am: " &  _
sSubject2.Offset(IntZeile - 4, 0).Value 'Betreff
.Body = sBody 'Nachricht
.ReadReceiptRequested = False 'Lesebestätigung aus
.Display 'Email anzeigen
End With
End If
Next
End Sub

Anzeige
AW: Email an mehrere Email-Adressen aus einer Zelle
10.03.2015 11:43:10
Christian
Hab den Fehler. Danke an alle!

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

E-Mail an mehrere Empfänger aus Excel versenden


Schritt-für-Schritt-Anleitung

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

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (dein Arbeitsblattname)" -> Einfügen -> Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub AUTOMATISIERTE_EMAIL()
        Dim olApp As Object
        Dim sAdress As Range
        Dim sAdressCC As Range
        Dim sSubject1 As Range
        Dim sSubject2 As Range
        Dim sBody As String
        Dim IntZeile As Integer
    
        Set olApp = CreateObject("Outlook.Application")
        Set sAdress = Range("D4")
        Set sAdressCC = Range("E4")
        Set sSubject1 = Range("A4")
        Set sSubject2 = Range("N4")
        sBody = Range("W1").Value
    
        For IntZeile = 4 To 5000
            If Cells(IntZeile, 11) = "OK" Then
                With olApp.CreateItem(0)
                    .To = sAdress.Offset(IntZeile - 4, 0).Value 'Empfänger
                    .CC = sAdressCC.Offset(IntZeile - 4, 0).Value 'CC
                    .Subject = "Die Opportunity " & sSubject1.Offset(IntZeile - 4, 0).Value & " endet am: " & sSubject2.Offset(IntZeile - 4, 0).Value 'Betreff
                    .Body = sBody 'Nachricht
                    .ReadReceiptRequested = False 'Lesebestätigung aus
                    .Display 'Email anzeigen
                End With
            End If
        Next
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus: Drücke ALT + F8, wähle AUTOMATISIERTE_EMAIL und klicke auf Ausführen.

Stelle sicher, dass die E-Mail-Adressen in den Spalten D und E korrekt eingegeben sind, damit die E-Mail an mehrere Empfänger gesendet werden kann.


Häufige Fehler und Lösungen

  • Fehler: E-Mail wird nicht gesendet

    • Stelle sicher, dass Outlook richtig konfiguriert ist und als Standard-Mail-Anwendung festgelegt wurde.
  • Fehler: CC-Feld bleibt leer

    • Überprüfe, ob die CC-Adressen in der richtigen Zelle stehen und dass die Range korrekt definiert ist.
  • Fehler: Der Makro-Button funktioniert nicht

    • Achte darauf, dass die Makros in den Excel-Optionen aktiviert sind.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, gibt es auch die Möglichkeit, mehrere E-Mail-Adressen in Outlook zu importieren:

  1. Exportiere die E-Mail-Adressen aus Excel in eine CSV-Datei.
  2. Importiere die CSV-Datei in Outlook.
  3. Du kannst dann die importierten Kontakte als Gruppe in einer neuen E-Mail verwenden.

Praktische Beispiele

Angenommen, du hast folgende E-Mail-Adressen in den Zellen D4 und E4:

  • D4: empfaenger1@beispiel.de
  • E4: empfaenger2@beispiel.de

Wenn du das Makro ausführst, wird eine E-Mail an empfaenger1@beispiel.de gesendet, während empfaenger2@beispiel.de im CC-Feld angezeigt wird.


Tipps für Profis

  • E-Mail-Adressen aus Excel kopieren: Wenn du mehrere E-Mail-Adressen in einer Zelle hast, kannst du diese in separate Zellen aufteilen, um sie einfacher zu verwalten.
  • Fehlerüberprüfung: Implementiere eine Fehlerüberprüfung im Makro, um sicherzustellen, dass die E-Mail-Adressen gültig sind, bevor du die E-Mail versendest.
  • Automatisierung erweitern: Du kannst das Makro so anpassen, dass es automatisch E-Mails an Gruppen von Empfängern basierend auf bestimmten Kriterien sendet.

FAQ: Häufige Fragen

1. Wie kann ich mehrere E-Mail-Adressen in einer Zelle eingeben?
Du kannst mehrere E-Mail-Adressen durch Semikolons (;) trennen, z.B.: email1@beispiel.de; email2@beispiel.de.

2. Was muss ich tun, wenn das Makro nicht funktioniert?
Prüfe, ob die E-Mail-Adressen korrekt eingegeben sind und ob die Makros in Excel aktiviert sind. Außerdem sollte Outlook als Standardanwendung festgelegt sein.

3. Wie kann ich E-Mail-Adressen aus Excel kopieren?
Du kannst die E-Mail-Adressen einfach markieren, kopieren und in das "An" oder "CC" Feld in Outlook einfügen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige