Outlook-Signatur automatisch bei Versand von PDF
25.08.2019 15:29:10
PDF
Ich möchte, dass bei Versand eines aus Excel automatisch generierten PDF auch meine normale als Standard hinterlegte Mail-Signatur erscheint. Ich habe folgenden Code für das Generieren der NAchricht, welcher einwandfrei funktioniert:
Sub pdf_per_mail()
Dim pdf As String
pdf = pdf_erstellen
Call permail(pdf)
End Sub
Function pdf_erstellen()
Dim pdf As String
Dim sep As String
sep = Application.PathSeparator
pdf = ThisWorkbook.Path & sep & ThisWorkbook.Name & ".pdf" 'Speicherpfad
On Error Resume Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
On Error GoTo 0
pdf_erstellen = pdf
End Function
Sub permail(ByVal pdf As String)
Dim objOutlook As Object
Dim objMail As Object
Dim myAttachments
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Set myAttachments = objMail.Attachments
With objMail
.To = Range("Magazinbestellung!Q8")
.CC = Range("Magazinbestellung!Q9")
.Subject = "Materialbestellung " & Range("H4") & " - " & Range("D4")
.Body = "Hallo " & Range("T8") & vbNewLine _
& vbNewLine _
& "Beiliegend sende ich Dir eine Materialbestellung zum Objekt " & Range("D4") & ". Der _
_
Transport findet am " & Range("H6") & " um " & Range("H8") & " statt." & vbNewLine _
& "Besten Dank für die Lieferung. Bei Fragen stehe ich Dir gerne zur Verfügung." & _
vbNewLine _
& vbNewLine _
myAttachments.Add pdf 'Anhang
'Nachricht zur Kontrolle anzeigen
.Display
'Oder direkt senden
'.Send
End With
End Sub
