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 !
|