ActiveWorkbook.SendMail Recipients:="m.a@bluewin.ch", Subject:="Offertenreporting"
Frage: Kann ich nebst dem Betreffvermerk (oben mit Subject:=" " eingetragen) auch noch Text ins E-Mail einfügen. Wie lautet der entsprechende Code?
Sub Sende()
Dim olApp, Mail As Object
Dim objNachrich As Object
Set olApp = CreateObject("Outlook.Application")
Set objNachrich = olApp.CreateItem(0)
Set Mail = objNachrich
Mail.To = "email@spammail.com"
Mail.Body = "Hallo XY," & Chr(10) & Chr(10) _
& "Bla Bla Bla." & Chr(10) & Chr(10) _
& "Gruß" & Chr(10) _
& "Versender" & Chr(10) & Chr(10)
Mail.Subject = "TESTMAIL"
Mail.Attachments.Add "C:\Daten\Datei.xls"
Mail.Display
End Sub