Mail aus xls, aber noch nicht schicken (outlook)
Florian
wieder mal eine Frage, bei der Ihr mir vielleicht weiterhelfen könnt: ich will aus einer Excel-Datei heraus eine Outllok-Mail aufsetzen, bei der die xls-Datei selbst Anhang sein soll. Nun soll die gesamte Mail zwar fertig sein (dh. mit Body, Anhang usw), soll aber noch nicht gesendet werden, um sie evt. noch manuell nachbearbeiten zu können. Nun meine Frage: wenn ich das ".send" weglasse, passiert gar nichts...
Könnt Ihr mir da vielleicht helfen? Den jetzigen Code seht ihr unten.
Besten Dank schon mal!
Gruss Florian
Sub SendMeAsMail()
Dim OLApp As Outlook.Application
Dim OLMail As Object
Set OLApp = New Outlook.Application
Set OLMail = OLApp.createitem(0)
OLApp.session.logon
With OLMail
.to = "tester@test.de"
.CC = ""
.bcc = ""
.Subject = "TEST-MAIL"
.Body = "Test-body"
.attachments.Add ThisWorkbook.FullName
' .Send
End With
End Sub
Anzeige