E-Mail mit Anhang versenden über VBA

Gestern bekam ich eine Anfrage, ob man eine E-Mail aus Excel versenden kann in der das Dokument als Anhang eingefügt ist.

Zu dieser Anforderung kann man folgenden Code verwenden:

Sub Mailversand()
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Dim Anhang As String
Anhang = ThisWorkbook.FullName
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
.To = "mailadresse@domain.tld"
.Subject = "Betreff "
.attachments.Add Anhang
.Body = "Mailtext" & vbCrLf & vbCrLf
.Display
'.Mail.Send
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
End Sub

Wenn man das Apostroph vor dem Befehl „.Mail.Send“ entfernt, wird die Mail direkt versandt.

10 Kommentare zu “E-Mail mit Anhang versenden über VBA”

  1. Hallo und vielen Dank. Mögen potentielle Auftraggeber auf diesem Wege auf dich aufmerksam werden. Verdient hast du’s und die dann hoffentlich auch.

  2. Hallo

    Ich habe einen Befehlt im Word eingegeben, leider versendet es die E-Mail automatisch, ich würde diese jedoch davor noch gerne bearbeiten z.b. andere Attachements einfügen. Ich weiss nich wo der Fehler ist 🙁

    ____________________________________
    Sub CommandButton1_Click()

    ‚Working in Excel 2000-2013
    ‚This example send the last saved version of the Activeworkbook
    ‚For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
    Dim OutApp As Object
    Dim OutMail As Object
    Dim toadresse As Variant
    Dim ccadresse As Variant
    Dim bccadresse As Variant
    Dim ssubject As Variant
    Dim sbody As Variant

    toadresse = „name.vorname@firma.net“
    ccadresse = „name.vorname@firma.net“
    ssubject = „Austrittsformular“
    sbody = „Im Anhang sende ich das Austrittsformular;“

    Set OutApp = CreateObject(„Outlook.Application“)
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
    .to = toadresse
    .CC = ccadresse
    .BCC = bccadresse
    .Subject = ssubject
    .Body = sbody
    .Attachments.Add ActiveDocument.FullName
    ‚You can add other files also like this
    ‚.Attachments.Add („C:\test.txt“)
    .Send ‚or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

    End Sub

  4. Herr Lensing
    Danke das Sie ihr Fachwissen zur Verfügung Stellen. Ich bin ein totaler Anfänger was VBA beinhaltet.
    Ich bin Lehrer und darf dauernd Bewertungen per Mail versenden an immer die gleichen Personen.
    Mit dem Code weis ich nicht umzugehen und daher funktioniert der bei mir nicht.
    Frage: Haben Sie Interesse mir zu helfen per Team Viewer? LG Andreas

  5. Hallo und guten Tag,

    ich möchte eine Mail an immer denselben Empfänger verschicken. Die attachements sind jedoch täglich Andere. Die Dateien können nur über folgende Suchbefehle zugeordnet werden: heute erstellt oder hat endweder endung1 oder endung2. Es handelt sich immer um min. 2 Dateien deren Namen in Abhängigkeit zur Laufzeit generiert werden. Der Name wird nicht von mir, sondern von einem Fremdprogramm generiert. Ich hoffe du kannst mir helfen.

    Gruß

  6. Hallo,
    vielen Dank für deinen Kommentar.
    Es handelt sich bei deiner Anfrage um ein anderes Start- sowie Zielszenario.
    Gern helfe ich dir bei deiner Aufgabenstellung.

    Liebe Grüße
    Daniel

  7. Hallo Daniel
    Ich habe Deinen Code gefunden und versucht in eine Excel Anwendung einzubauen, ein merkwürdiges Phänomen verhindert aber, dass meine Anforderungen erfüllt werden.
    Die versendete Datei entspricht nicht dem letzten Stand von derjenigen die ich auf dem Bildschirm habe, es fehlen diverse Eingaben?
    Gibt es dazu eine Erklärung, Lösung ?

  8. Hallo Daniel,
    sorry für die Verzögerung.

    Vielleicht erst einmal eine doofe Frage:
    Vor der Nutzung des Makros hast du die Datei mit deinen fehlenden Eingaben gespeichert?
    Die Speicherung übernimmt das Skript aktuell nicht.

    Ausserdem wäre es interessant, welche Office-Version du im Einsatz hast.

    Liebe Grüße
    Daniel

  9. Hallo,

    ich habe den Code ausprobiert und möchte meine Standard Signatur automatisch einfügen.
    Es funktioniert leider nicht so mit dem GetInspector.Display
    Für einen Tip wäre ich dankbar.

    ‚Code
    ‚try mail mail send auskommentiert für ansicht vor dem Senden
    Dim Nachricht As Object, OutlookApplication As Object
    Set OutlookApplication = CreateObject(„Outlook.Application“)

    Dim Anhang As String
    Anhang = ThisWorkbook.FullName
    Set Nachricht = OutlookApplication.CreateItem(0)
    With Nachricht

    .GetInspector.Display
    .To = „kerstin@test.de“
    .Subject = „TEst“
    ‚.Attachments.Add Anhang
    .HTMLBody = „Sehr geehrte Damen und Herren,im Anhang erhalten Sie die Liste.“
    .Attachments.Add („my.zip“)
    ‚Cursor ans Ende der EMail setzen
    VBA.SendKeys „^{END}“, True
    ‚Name der gespeicherten Signatur – bitte anpassen
    strSignatur = „KV“
    ‚Einfügen einer bestimmten Signatur
    .GetInspector.CommandBars.Item(„Insert“).Controls(„Signatur“).Controls(strSignatur). _
    Execute
    .Display

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht.