Hallo!
Das funktioniert nicht, da nicht vorgesehen. Wenn Du die Email selber erstellst musst Du den Inhalt in den htmlBody schreiben. Stichwort: RangeToHtml
Gruß, René
AW: eMail body = Inhalt des Anhangs
04.08.2015 18:00:16
Thorsten
Hi, Danke für die Antwort wie könnte der Quelltext aussehen?
z.Z verwende ich:
Dim myOlApp As Outlook.Application
Dim myOlIns As Outlook.Inspector
Dim objMail As Outlook.MailItem
Set myOlApp = CreateObject("Outlook.Application")
Set myOlIns = myOlApp.ActiveInspector
Set objMail = myOlIns.CurrentItem
If (Mid(objMail, 14, 8)) = "Bghztrnt" Then
.Attachments.Add "c:\123.xlsx"
'.HTMLBody = Attachments.Value
End If
Von der Datei "c:\123.xlsx" würde ich gerne range("B1:H26") einfügen.