Sub EMail_Test_1()
' ======================================================================================== _
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Sheets("Kunden").Range("AE47").Value ' Empfängerfeld ausfü _
llen, liest Emaileintrag im Tab.Blatt "kunden" Zelle AE47
' Der Versand an mehrere Adressaten innerhalb von To, CC oder BCC erfolgt _
durch ein Semikolon als Trennzeichen.
.Subject = Sheets("Kunden").Range("I56").Value ' Betreff
.Display ' _
Email öffnet sich
' .Send ' _
wird dann gleich gesendet
' .CC = "deinname@deinedomain.de" ' CarbonCopy an deine Email
' .BCC = "deinname@deinedomain.de" ' Blindkopie
' .Attachments.Add "C:/Beispiel.xlsx" ' Anhang
.HTMLBody = "![]()
"
' .body = Sheets("TX").Range("B2").Value ' hier könnte man Text fürs _
Textfeld angeben ..
End With
Set Nachricht = Nothing
Set OutApp = Nothing
End Sub