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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen