email mit Anhang aus VBA (Windows Mail)
Anne
ich möchte über VBA eine email (Windows Mail) vorbereiten, die sowohl einen Betreff, Text und einen Anhang enthält.
Leider bekommen ich entweder die vorbereitete Mail, oder eine leere Mail mit dem gewünschten Anhang. Hierfür habe ich folgende Codes im Formu gefunden:
Vorbereitete Email mit Windows Mail öffnen :
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(sAdr As String, Optional sSub As String, _
Optional sBody As String)
Call ShellExecute(0&, "Open", "mailto:" + sAdr + _
"?Subject=" + sSub + "&Body=" + sBody, "" , "", 1)
End Sub
Sub MailVersenden()
Dim sAddress As String, sSubject As String, sTxt As String, sAttach As String
sAddress = ""
sSubject = "Angebot"
sTxt = "Sehr geehrte Damen und Herren," & "%0D%0A" & "%0D%0A" & _
"Text" & "%0D%0A" & "%0D%0A" & "%0D%0A" & _
"Mit freundlichen Grüßen" & "%0D%0A" & "%0D%0A" & _
"Absender"
Call Mail(sAddress, sSubject, sTxt)
End Sub
Email mit Anhang mit Windows Mail öffnen:
Sub emailmitAnhang()
Application.CommandBars.ExecuteMso "FileEmailAsPdfEmailAttachment"
End Sub Bekomme ich da auch irgendwie zusammen?
Vielen Dank für Eure Hilfe!!!!
Gruß
Anne