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.
Hallo und vielen Dank. Mögen potentielle Auftraggeber auf diesem Wege auf dich aufmerksam werden. Verdient hast du’s und die dann hoffentlich auch.
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
Hallo Luli,
einfach die folgende Zeile ersetzen:
alt – .Send ‚or use .Display
neu – .Display ‚or use .Send
Liebe Grüße
Daniel