email versenden mit notes
29.11.2004 12:24:42
Andi
ich möchte gerne automatisch emails aus Excel heraus über mein Standard-email-Programm Lotus Notes V6.5 versenden. Ich habe hierzu in diesem thread:
https://www.herber.de/forum/archiv/208to212/t208689.htm
folgenden Code von einem gewissen Peter gefunden:
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 MailSenden_Click()
Dim eMail As String, Subject As String, Body As String
eMail = "poststelle@max-mustermann.de"
Subject = "Dies ist die Betreffzeile"
Body = "Dies ist der Nachrichtentext"
Call Mail(eMail, Subject, Body)
End Sub
Diesen Code hab ich dann in ein Modul kopiert und einem CommandButton in meinem Tabellenblatt den Aufruf von MailSenden_Click() zugewiesen.
Das funktioniert auch eigentlich alles sehr gut, Adresse, Betreff und Text werden richtig eingetragen, nur abgeschickt wird die email nicht (ich hab natürlich die max-mustermann Adresse gegen eine real existierende mail-Adresse ausgetauscht.
Hat jemand ne Idee, woran das liegen könnte?
Vielen Dank schon mal im Voraus & schönen Gruß,
Andi
P.S.: Bitte nicht böse sein, wenn ich auf Beiträge, die nach 13:30 gepostet werden, erst wieder morgen antworten kann; das liegt weder an Desinteresse noch an Unhöflichkeit meinerseits, sondern an meinem Terminkalender.