Knuth oder Stephie,
mein Automacro Addin gibt mir diese Variante als vorgefertigtes Template aus. ich hab nur das new Outlook.application etwas angepasst.
Sub Send_Mail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = New Outlook.Application
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "test@test.com"
.Subject = "Test Email"
.Body = "Message Body"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
|