Der nachstehende Code öffnet mein Standartmailprogramm (Outlook-Express) und erstellt eine vordefinierten E-Mail.
Ich würde auch noch ganz gerne einen Dateianhang automatisch hinzufügen (z.B. C:\test.xls) - aber wie???
Vielleicht hat jemand ja einen Vorschlag, wie man meinen Beispielcode modifizieren könnte.
Übrigens:
SendMail und CreateObject("Outlook.Application") sind hier ungeeignet, da ich das Standartmailprogramm nutzen möchte.
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 Senden()
Dim eMail As String, Subject As String, Body As String
Dim Nachricht As String, Betreff As String
eMail = "post@irgendwo.de"
Subject = "Betreff"
Body = "Nachricht"
Call Mail(eMail, Subject, Body)
End Sub