Dateianhang per Standardmailer versenden
27.02.2008 14:23:00
Vera
ich komme nicht so ganz weiter, denn ich muß eine gespeicherte Mappe mit einer Nachricht per unbekannten eMail-Client versenden und das funktioniert noch nicht perfekt.
Wie kann ich die folgenden, in Herbers Archiv gefundenen Scripts um einen Dateianhang-Versand (Pfad ist komplett bekannt) erweitern?
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
sAddress = Range("B1").Value
sSubject = Range("B2").Value
sTxt = Range("B3").Value
Call Mail(sAddress, sSubject, sTxt)
End Sub
Oder hat jemand noch eine bessere Idee einen Dateianhang mit voreingestelltem Text an eine voreingestellte Adresse zu versenden?
Liebe Grüße
Vera
PS. Rätsel, rätsel .. Warum wird nur der mittlere Teil als Script erkannt?