E-Mail aus Excel - nur wie mit eigener Signatur?
11.03.2005 12:52:02
BerndSchweiger
hab da noch mal ne Kleinigkeit.
Vielleicht kann mir ja jemand weiterhelfen
Folgendes Problemchen: Um eine E-Mail aus Excel zu verschicken benutzte ich folgenden hier im Forum gefundenen Code funktioniert auch einwandfrei.
Nur, wenn ich den Befehlt E_Mail.body = Mit freundlichen Grüßen auch mit einbeziehe, ist meine Signatur der E-Mail aus Outlook weg.
Wie schaff ichs, dass die trotzdem aktiviert bleibt, d. h. erst der Text Mit freundlichen Grüßen und danach meine Signatur kommt?
Schon jetzt vielen Dank
Gruß
Bernd
Hier der Code:
'per E-Mail (Outlook) an:
On Error GoTo Fehlermelden
Dim OutLookJob As Object, E_Mail As Object
Set OutLookJob = CreateObject("Outlook.Application")
FLYER = "C:\tmp\Stempelzeiten " & Abrufdatum & ".xls" 'Anhang Beispiel als Option
Set E_Mail = OutLookJob.CreateItem(0)
E_Mail.To = "E-Mailadressen
E_Mail.Subject = aktName
E_Mail.attachments.Add FLYER 'hier optional mit Anhang
'E_Mail.body = "Mit freundlichen Grüßen"
E_Mail.display
E_Mail.send
Set E_Mail = Nothing
Set OutLookJob = Nothing
Exit Sub
Fehlermelden:
MsgBox ("Es wurde keine EMAIL durch Outlook geschickt.")
End