Tabellenkalkulation
Von: FlоrіаnΚоlbесk, 28.6.2010 13:58 Uhr
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 = "test@test.de"
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. Antwort von FlоrіаnΚоlbесk 0
    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 = "test@test.de"
    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