********* Aus Excel heraus eine Email ohne Arbeitsmappenanlage versenden *********
Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub
Sub MailVersenden()
Dim eMail As String, Subject As String, Body As String
eMail = "Mohrs@t-online.de"
Subject = "Excel-Daten"
Body = "Mein Text"
Call Mail(eMail, Subject, Body)
End Sub
1)In Zusammenhang mit Lotus-Notes wird aber der unter Body angegebene Text nicht in meine Mail uebernommen - warum ?
2) Gibt es die Moeglichkeit die Mail aus Excel heraus nicht nur zu erstellen, sondern auch noch direkt zu versenden?