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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen