Bitte um Hilfe, bin Anfänger und habe daher so meine Probleme, ich möchte eine Excel Tabelle als Anhang per Outlook Express senden vorher sollte aber noch die Standard-DFÜ Verbindung ins Internet aufgebaut werden. Das einzig brauchbare was ich bis jetzt gefunden habe ist dieser Code hier der auch sehr gut funktioniert nur weiß ich nicht wie ich ihn zu den Oben genannten Funktionen erweitern kann.
Bin für jeden Tip sehr danbar
mfg
Hako
'StandardModule: modMain
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(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 MailVersenden()
ActiveWorkbook.Save
Dim eMail As String, Subject As String, Body As String
eMail = "hans@herber.de"
Subject = "Bundesliga 2002"
Body = "Mein Tipp"
Call Mail(eMail, Subject, Body)
End Sub