eMail per VBA versenden, mit Kopie
11.07.2004 14:01:58
Frank
ich möchte gerne mit einem Makro eine Mail zum Versand vorbereiten. Folgendes habe ich bereits im Netz 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(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 = "test@test.de"
sSubject = "Test"
sTxt = "nochmals Text"
Call Mail(sAddress, sSubject, sTxt)
End Sub
Nun würde ich gerne noch eine zweite Mail Adresse einfügen, also eine Kopie. Hat jemand vielleicht eine Idee, wie das funktioniert? Im Netz habe ich nichts dergleichen gefunden und meine eigenen Versuche, endeten immer mit Fehlermeldungen. Bin für jeden Tipp dankbar.
MfG
Frank