ich möchte aus Excel heraus eine Mail versenden. In dieser Mail soll ein Body rein. Dazu habe ich hier dieses Makro gefunden.
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", "Sehr geehrte Damen und Herren usw.")
End Sub
Ich verwende aber für das Versenden meiner Mail diesen Code weil ich die Betreffzeile mit aus meiner Datei auslese.
ActiveWorkbook.SendMail Recipients:=mail, Subject:=strFileName & "_" & Format(Range("O7"), "dd_mm_yyyy") & ".xlsx" 'mail senden
Kann mir bitte jemand helfen wie ich diese zwei Codes zusammenbekomme?
MfG René