Otevření výchozího Mail klienta

Postup:
Deklarujte:

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

Příklad volání:

Dim R As Long 
R = ShellExecute(Me.hwnd, "Open", "mailto:bozena@army.cz", _ 
       vbNullString, App.Path, vbNormalFocus)


Navíc lze specifikovat další parametry pro dialog pošty:
CC,BCC - další příjemci zprávy
Subject - předmět zprávy
Body - Text zprávy
Attach - připojený dokument
například:
"mailto:bozena@army.cz?subject=Chybný%20odkaz"
"mailto:bozena@army.cz?subject=Chybný%20odkaz&body=Prověř%20si%20to"
Upozorňuji na značku %20 místo mezery, protože mezera není podporována !

Zpět

Autor: The Bozena