"mailto:" en VB
Skippy
-
20 juil. 2001 à 16:07
webcyril Messages postés 16 Date d'inscription jeudi 1 février 2001 Statut Membre Dernière intervention 9 novembre 2004 - 24 août 2004 à 14:48
webcyril Messages postés 16 Date d'inscription jeudi 1 février 2001 Statut Membre Dernière intervention 9 novembre 2004 - 24 août 2004 à 14:48
3 réponses
Tu déclares cette API :
Ensuite dans ton bouton tu mets :
Le paramètre "1" c'est pour ouvrir Outlook avec un NormalFocus
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
Ensuite dans ton bouton tu mets :
ShellExecute hWnd, vbNullString, "mailto:" & adresse &"?subject=" & sujet & "&object=" & texte, vbNullString, vbNullString, 1
Le paramètre "1" c'est pour ouvrir Outlook avec un NormalFocus
Tu déclares cette API :
Ensuite dans ton bouton tu mets :
Le paramètre "1" c'est pour ouvrir Outlook avec un NormalFocus
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
Ensuite dans ton bouton tu mets :
ShellExecute hWnd, vbNullString, "mailto:" & adresse &"?subject=" & sujet & "&object=" & texte, vbNullString, vbNullString, 1
Le paramètre "1" c'est pour ouvrir Outlook avec un NormalFocus
webcyril
Messages postés
16
Date d'inscription
jeudi 1 février 2001
Statut
Membre
Dernière intervention
9 novembre 2004
24 août 2004 à 14:48
24 août 2004 à 14:48
Et pour ajouter une pièce attachée ??
webcyril
webcyril
