Hallo @all,
ich habe folgendes Problem. Ich möchte eine email aus excel mit Outlook schicken, das funzt.
auszug aus dem code:
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Cells(i, 4) 'Adresse
.Subject = Cells(i, 7) 'Betreffzeile
.Body = Cells(i, 8) 'Sendetext
.Display
SendKeys "%s", True
End With
Momentan hab ich als Body nur eine Zelle. Jetzt meine Frage wie muss ich die Sache umschreiben, damit ich mehrere Zellen aus einen Sheet inklusive Rahmen, in die mail bekomme?
Zur Anschauung:
Danke für Eure Hilfe schonmal im Vorraus.