E-Mail mit Makro aus Excel versenden

Von: , Frage gestellt am Mo, 28. Jun 2010

Hallo Excelperten,

ich eine eine E-Mail aus Excel versenden und verwende folgenden Code:

CalSub SendEmail()
Dim objOutlook As Object
Dim objNameSpace As Object
Dim objMailItem As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")
Call objNameSpace.Logon

Set objMailItem = objOutlook.CreateItem(0)
objMailItem.To = "[E-Mail-Adresse entfernt]"
objMailItem.Subject = ("Text1")
objMailItem.Body = "Text2"
objMailItem.Attachments.Add "C:\text.txt"

Call objMailItem.Send
Call objNameSpace.Logoff

End Sub

Jedoch will ich nur, dass das E-Mail-Fenster nur mit Inhalen geöffnet wird und diese vor dem Versenden noch bearbeitbar ist.

Danke für Eure Hilfe
Florian

1 Antworten zu dieser Frage

Antwort von nach 18 Stunden 0 hilfreich

Re: E-Mail mit Makro aus Excel versenden

Hallo zusammen,

so funktionierts:

Sub mail()
' erstellt von mir nach einer Vorlage von Bernd Held

Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = ("text")
mail.To = "[E-Mail-Adresse entfernt]"
mail.cc = ""
mail.bcc = ""
'mit body wird nur noch im txt-Format versandt!
mail.body = "Hallo "

mail.Attachments.Add ""
'Mail anzeigen
mail.Display
' mit dem folgenden Befehl kann direkt gesendet werden:
'mail.send

End Sub

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!