Anhang an Email



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Anhang an Email
von: Hako
Geschrieben am: 16.07.2002 - 20:49:11

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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Find Methode "