VBA Body überschreibt Signatur
03.12.2019 21:58:46
Roger
Sub PDFundSenden()
ChDir "C:\Users\Admin\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Admin\Desktop\Bestellung.pdf"
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.GetInspector.Display
olOldBody = .HTMLBody
.To = Range("O25")
.CC = Range("O26")
.Subject = Range("O28")
.Body = "Hoi Ruedi" & vbCrLf & vbCrLf & "Die Bestellung findest Du im Anhang." & vbCrLf & _
_
vbCrLf & "Freundlichen Grüsse" & vbCrLf & vbCrLf & "Roger Meier" & vbCrLf & "Meier Delivery _
at Box"
myAttachments.Add "C:\Users\Admin\Desktop\Bestellung.pdf"
'send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub