| |
Envoyer un Mail 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long
Private Sub Command1_Click()
Dim sujet As String
Dim body As String
sujet = "Test de Mail"
body = "ça fonctionne bien !!!"
Call ShellExecute(Me.hwnd, "open", "mailto:adresse@xxx.xx?Subject=" & sujet & "&body=" & body & "", 0&, 0&, 1)
End Sub
Où adresse@xxx.xx correspond à l'adresse e-mail du destinataire.
|
|
IDDN Certification
