Envoi de mail
cs_bob10
Messages postés
96
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
28 janvier 2009
-
9 déc. 2003 à 10:35
cs_vichenzo Messages postés 57 Date d'inscription jeudi 20 novembre 2003 Statut Membre Dernière intervention 29 octobre 2004 - 9 déc. 2003 à 11:20
cs_vichenzo Messages postés 57 Date d'inscription jeudi 20 novembre 2003 Statut Membre Dernière intervention 29 octobre 2004 - 9 déc. 2003 à 11:20
2 réponses
cs_vichenzo
Messages postés
57
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
29 octobre 2004
9 déc. 2003 à 11:13
9 déc. 2003 à 11:13
salut
je sais pas si g bein compris ta question mais pour envoyer un mail moi g fais
Private Sub Label1_Click()
ShellExecute Me.hwnd, "open", "mailto:adresse mail", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
voili :)
je sais pas si g bein compris ta question mais pour envoyer un mail moi g fais
Private Sub Label1_Click()
ShellExecute Me.hwnd, "open", "mailto:adresse mail", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
voili :)
cs_vichenzo
Messages postés
57
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
29 octobre 2004
9 déc. 2003 à 11:20
9 déc. 2003 à 11:20
ah oui j oubliais :blush) avant faut mettre dans les declarations en general:
Private Const SW_SHOWNORMAL = 1
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
voila @+
Private Const SW_SHOWNORMAL = 1
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
voila @+
