Email per code versenden
ray
mit nachstehenden Code versenden ich aus Excel eine Email, funzt einwandfrei.
Jetzt möchte ich aber, dass im Emailbody die in Outlook definierte Signatur ''U1''
eingefügt wird.
Wie rufe ich das auf?
Sub Email()
Dim OutLookJob As Object, E_Mail As Object
Set OutLookJob = CreateObject("Outlook.Application")
'FLYER = "C:\TEMP.XLS" 'Anhang Beispiel als Option '
Set E_Mail = OutLookJob.CreateItem(0)
E_Mail.To = "xy@zz.de"
E_Mail.Subject = "" 'hier optional mit Anhang
E_Mail.Body = "" 'textfeld der Email
E_Mail.Display
Set E_Mail = Nothing
Set OutLookJob = Nothing
End Sub
Viele Grüße aus Hamburg
Ray
Anzeige