Option Explicit
Sub MailSenden()
Dim OutApp As Object, Mail As Object
Set OutApp = CreateObject("Outlook.Application")
Set Mail = OutApp.CreateItem(0)
With Mail
.To = "Mailadresse" 'An
.CC = "Mailadresse" 'Carbon copy
.BCC = "Mailadresse" 'Blind carbon copy
.Subject = "hier der Betreff" 'Betreffzeile
.body = "Mein Text" 'Text
.Attachments.Add ThisWorkbook.FullName 'Dateianlage
.Display 'Mail nur anzeigen
'.Send 'Hier wird die Mail gesendet
End With
End Sub
Gruß Tino
Um eine E-Mail aus Excel mit BCC (Blindkopie) und CC (Kopie) über Outlook zu versenden, kannst Du folgenden VBA-Code verwenden. Stelle sicher, dass Deine Datei zuvor gespeichert ist:
ALT + F11, um den VBA-Editor zu öffnen.Einfügen > Modul.Option Explicit
Sub MailSenden()
Dim OutApp As Object, Mail As Object
Set OutApp = CreateObject("Outlook.Application")
Set Mail = OutApp.CreateItem(0)
With Mail
.To = "Mailadresse" ' An
.CC = "Mailadresse" ' Carbon copy
.BCC = "Mailadresse" ' Blind carbon copy
.Subject = "hier der Betreff" ' Betreffzeile
.Body = "Mein Text" ' Text
.Attachments.Add ThisWorkbook.FullName ' Dateianlage
.Display ' Mail nur anzeigen
'.Send ' Hier wird die Mail gesendet
End With
End Sub Fehler: Outlook öffnet sich nicht.
Fehler: E-Mail wird nicht gesendet.
.Send-Zeile im Code nicht auskommentiert ist. Wenn Du die E-Mail nur anzeigen möchtest, lasse .Display aktiviert.Fehler: BCC-Adresse wird nicht erkannt.
Wenn Du kein VBA verwenden möchtest, kannst Du auch die mailto-Funktion verwenden, um eine E-Mail aus Excel zu erstellen. Ein Beispiel für einen Link, den Du in eine Zelle einfügen kannst:
=HYPERLINK("mailto:Mailadresse?cc=Mailadresse&bcc=Mailadresse&subject=hier der Betreff&body=Mein Text", "E-Mail senden")Das öffnet das Standard-E-Mail-Programm und füllt die Felder entsprechend aus.
E-Mail mit CC und BCC versenden:
E-Mail mit Anhang:
.Attachments.Add ThisWorkbook.FullName). Du kannst den Pfad zu einem anderen Dokument angeben.1. Wie kann ich mehrere BCC-Adressen hinzufügen?
Du kannst mehrere E-Mail-Adressen durch ein Semikolon (;) trennen:
.BCC = "Mailadresse1; Mailadresse2"2. Kann ich E-Mails ohne Outlook versenden?
Ja, Du kannst auch andere E-Mail-Clients verwenden, aber der VBA-Code muss entsprechend angepasst werden.
3. Was ist der Unterschied zwischen CC und BCC?
CC (Carbon Copy) zeigt allen Empfängern, wer die E-Mail erhalten hat, während BCC (Blind Carbon Copy) die Empfänger anonym hält.