Signatur von E-Mail anfügen

Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Call ShellExecute(0&, "Open", "mailto:" + sAdr + "?Subject=" _
+ Sub + "&Body=" + sBody, "", "", 1)'
oder
Dim OutApp As Object, Mail As Object
Set OutApp = CreateObject("Outlook.Application")
Set Mail = OutApp.CreateItem(0)
With Mail
.To = "An"
.Subject = "hier der Betreff" 'Betreffzeile
.body = "Mein Text" 'Text
.Attachments.Add ThisWorkbook.FullName 'Dateianlage
.Display      'Mail nur anzeigen
.Send         'Hier wird die Mail gesendet
End With
End Sub
Vielen Dank, habe schon viele gute Tipps über dieses Forum erhalten und ein paar wenigen geben  _
können - danke Herr Herber für diese Plattform
mfg und schöne Weihnachten
PeterE