-- activeworkbook.sendmail recipients:="empfänger", subject:="text" --,
nun möchte ich aber noch eine Standarttext mit dem Body-Befehl hinzufügen. Body:="text" funtioniert nicht. Kann mir jemand einen Tip geben?
Danke
Danke
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
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 Mail_verschicken()
Call Mail("Test@t-online.de", "Titel", "Body")
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de
Sieht etwas kompliziert aus, vielleicht sollte ich einfach den subject-eintrag verlängern. Wäre für mich auch einfacher zu händeln.
Danke
Olaf