Email-Anhang für shell32.dll
nc-langkl7@netcologne.de
wie kann ich bei Verwendung (hier aus dem Forum) von
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=" + strSubject + "&Body=" + strBody, "1", "2", 1)
End Sub
Danke vorab!
Gruß Klaus
Anzeige