-- 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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen