Outlook E-Mail aus Excel versenden
Ausgangslage - Was tut dieser Code-Schnipsel?
Beispielquelltext für das Versenden von E-Mails über Microsoft Outlook aus Excel heraus. Bitte verwenden Sie die Beispieldaten nicht für Ihren Testlauf, die angegebenen E-Mail Adressen sind frei erfunden!
Ergebnisse statt Aufwand & Arbeit?
Wir liefern Ergebnisse - Schicken Sie uns kurz Ihre Datei und Ihre Wünsche; wir integrieren den notwendigen Code professionell, beheben ggf. vorhandene Fehler, machen optional ein Code-Review, liefern bei Bedarf Performance-Optimierungen & setzen gewünschte Erweiterungen effizient für Sie um (und das zum Festpreis nach kurzer Sichtung).
Express-Service beauftragen
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/outlook-e-mail-aus-excel-versenden
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de
Public Sub OVBAde_Mailversand()
Dim oAppOutlook As Object
Set oAppOutlook = CreateObject("Outlook.Application")
With oAppOutlook.CreateItem(0)
.To = "info@wershovenonline.de" 'E-Mail Empfänger
.CC = "max.m@online-vba.de" 'E-Mail Kopie an
.BCC = "berta.b@online-vba.de" 'E-Mail Blind-Kopie an
.Subject = "Betreffzeile" 'E-Mail Betreffzeile
.Body = "Mail-Inhalt ..." 'E-Mail Inhalt
.Attachments.Add "C:/Beispieldatei.pdf" 'E-Mail Anhang
.Display 'E-Mail anzeigen
End With
Set oAppOutlook = Nothing
End Sub
Das könnte Sie auch interessieren:
Von der Ist-Analyse bis zur Roadmap: Unsere Digitalisierungsberatung liefert priorisierte Maßnahmen mit klarer Wirtschaftlichkeitsbewertung. Wir unterstützen Sie mit einem VBA-Entwickler für Frankfurt am Main – Festpreise und direkter Ansprechpartner.
Anmerkungen und Hinweise
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
