E-Mail mit Makro aus Excel versenden

Computer: Software & Programmierung Office Software
1

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 = „[email protected]“
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

2

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 = „[email protected]“
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