Signatur einfügen mail
06.12.2019 22:49:47
MaBlu
ich habe ein Makro das ein PDF generiert und mit Outlook versendet.
Geht soweit alles, nun möchte ich aber dass es meine Standard Signatur unter "Mein Name" anhängt, wie muss das Makro dann aussehen?
Sub sendPDf()
Dim app As Object
Dim file As String
Dim isNew As Boolean
file = "Programm " & ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
On Error Resume Next
Set app = GetObject(, "Outlook.Application")
If app Is Nothing Then
Set app = CreateObject("Outlook.Application")
isNew = True
End If
With app.CreateItem(0)
.To = "name@gmx.ch"
.cc = "nam2@gmx.ch"
.BCC = ""
.Subject = "Programm & Helfereinsätze " & file
.Body = "Hallo zusammen" & vbCr _
& vbCr _
& "Anbei das angepasste und genehmigte Programm für das kommende Jahr. " & vbCr _
& vbCr _
& "Mit freundlichen Grüssen" & vbCr _
& "Aktuar" & vbCr _
& "Mein Name"
.Attachments.Add Environ("TEMP") & "\" & file
.ReadReceiptRequested = True 'Lesebestätigung ein
.Display 'Email anzeigen
End With
If isNew Then app.Quit
End Sub
MaBlu