Signatur von E-Mail anfügen
20.12.2008 14:11:00
E-Mail
Ist es möglich in den nachfolgenden Skrips am Schluss des E-Mails die Signatur anzuhängen (nach Body)
Private Declare
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