Envoyer un mail lors d'un clic sur un bouton

Bonsoir,

Pourl'objet on complétera je n'ai jamais fait, mais pour le mail:

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

Sub Command1_Click() 'adresse e-mail :
Dim Mail As String
'
Mail = montmartre@noos.fr?subject=titre_du_courrier
'OU
Mail = adresse?sujet=titre&body=texte
'
ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1
' OU
ShellExecute Me.hwnd, "Open", "Mailto:" & "adr?sujet=s&body=b", "",
App.Path, 1
End Sub

------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"mcog" <mcog2NO-SPAM@wanadoo.frNO-SPAM> a écrit dans le message de news:
43f62841$0$29216$8fcfb975@news.wanadoo.fr...

Bonjour,

Sous Excel j'ai une boite de dialogue, une fois les données saisies, je
clic sur un bouton et je souhaite expédier les infos par e-mail, à un
destinataire avec un objet, un texte...

Comment faire ?

Merci,

Olivier

Je ne suis pas doué, j'ai fait un copier/coller dans un module du bouton de
ma userform et et j'ai plein de bug.
Pouvez vous m'envoyer (en enlevant NOSPAM dans mon mail) un petit fichier
excel ?

Merci,

Olivier

Bonsoir,

Pourl'objet on complétera je n'ai jamais fait, mais pour le mail:

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

Sub Command1_Click() 'adresse e-mail :
Dim Mail As String
'
Mail = montmartre@noos.fr?subject=titre_du_courrier
'OU
Mail = adresse?sujet=titre&body=texte
'
ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1
' OU
ShellExecute Me.hwnd, "Open", "Mailto:" & "adr?sujet=s&body=b", "",
App.Path, 1
End Sub

------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"mcog" <mcog2NO-SPAM@wanadoo.frNO-SPAM> a écrit dans le message de news:
43f62841$0$29216$8fcfb975@news.wanadoo.fr...

Bonjour,

Sous Excel j'ai une boite de dialogue, une fois les données saisies, je
clic sur un bouton et je souhaite expédier les infos par e-mail, à un
destinataire avec un objet, un texte...

Comment faire ?

Merci,

Olivier

Ce n'est pas pour un module mais pour une feuille, oui, je vais te faire ça,
ça arrive :o)

------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"mcog" <mcog2NO-SPAM@wanadoo.frNO-SPAM> a écrit dans le message de news:
43f6f997$0$29224$8fcfb975@news.wanadoo.fr...

Je ne suis pas doué, j'ai fait un copier/coller dans un module du bouton
de ma userform et et j'ai plein de bug.
Pouvez vous m'envoyer (en enlevant NOSPAM dans mon mail) un petit fichier
excel ?

Merci,

Olivier

Bonsoir,

Pourl'objet on complétera je n'ai jamais fait, mais pour le mail:

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

Sub Command1_Click() 'adresse e-mail :
Dim Mail As String
'
Mail = montmartre@noos.fr?subject=titre_du_courrier
'OU
Mail = adresse?sujet=titre&body=texte
'
ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1
' OU
ShellExecute Me.hwnd, "Open", "Mailto:" & "adr?sujet=s&body=b", "",
App.Path, 1
End Sub

------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"mcog" <mcog2NO-SPAM@wanadoo.frNO-SPAM> a écrit dans le message de news:
43f62841$0$29216$8fcfb975@news.wanadoo.fr...

Bonjour,

Sous Excel j'ai une boite de dialogue, une fois les données saisies, je
clic sur un bouton et je souhaite expédier les infos par e-mail, à un
destinataire avec un objet, un texte...

Comment faire ?

Merci,

Olivier

Ah, t'as dit sou Excel, je n'avais pas vu, alors je ne sais pas le faire
sous Excel, enfin je ne sais pas ce qu'il va accepter... Je te fais quand
même le programme et l'exe, tente d'en tirer quelque chose... D'autres
viendront sûrement à ton secours...

------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"mcog" <mcog2NO-SPAM@wanadoo.frNO-SPAM> a écrit dans le message de news:
43f6f997$0$29224$8fcfb975@news.wanadoo.fr...

Je ne suis pas doué, j'ai fait un copier/coller dans un module du bouton
de ma userform et et j'ai plein de bug.
Pouvez vous m'envoyer (en enlevant NOSPAM dans mon mail) un petit fichier
excel ?

Merci,

Olivier

Bonsoir,

Pourl'objet on complétera je n'ai jamais fait, mais pour le mail:

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

Sub Command1_Click() 'adresse e-mail :
Dim Mail As String
'
Mail = montmartre@noos.fr?subject=titre_du_courrier
'OU
Mail = adresse?sujet=titre&body=texte
'
ShellExecute Me.hwnd, "Open", "Mailto:" & Mail, "", App.Path, 1
' OU
ShellExecute Me.hwnd, "Open", "Mailto:" & "adr?sujet=s&body=b", "",
App.Path, 1
End Sub

------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"mcog" <mcog2NO-SPAM@wanadoo.frNO-SPAM> a écrit dans le message de news:
43f62841$0$29216$8fcfb975@news.wanadoo.fr...

Bonjour,

Sous Excel j'ai une boite de dialogue, une fois les données saisies, je
clic sur un bouton et je souhaite expédier les infos par e-mail, à un
destinataire avec un objet, un texte...

Comment faire ?

Merci,

Olivier

Bonsoir,
Regarde si cela te conviens. A adapter :

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

Private Sub CommandButton1_Click()
Dim Destinataire As String
Dim Objet As String
Dim Corps As String

Destinataire = "toto@wanadoo.fr"
Objet = "Voici les valeurs attendues..."
Corps = TextBox1.Text & " " & _
TextBox2.Text & " " & _
TextBox3.Text

ShellExecute 0, _
"Open", "mailto:" & Destinataire & _
"?subject=" & Objet & _
"&Body=" & Corps _
, "", _
0, _
3

End Sub

Hervé.

"mcog" <mcog2NO-SPAM@wanadoo.frNO-SPAM> a écrit dans le message de news:
43f62841$0$29216$8fcfb975@news.wanadoo.fr...

Bonjour,

Sous Excel j'ai une boite de dialogue, une fois les données saisies, je
clic sur un bouton et je souhaite expédier les infos par e-mail, à un
destinataire avec un objet, un texte...

Comment faire ?

Merci,

Olivier

C'est pas mal tout ça, ça me convient bien,

Merci beaucoup,

S'il était possible que le mail parte tout seul :o) ce serait le top du top
:o)

Merci encore,

Olivier

Bonsoir,
Regarde si cela te conviens. A adapter :

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

Private Sub CommandButton1_Click()
Dim Destinataire As String
Dim Objet As String
Dim Corps As String

Destinataire = "toto@wanadoo.fr"
Objet = "Voici les valeurs attendues..."
Corps = TextBox1.Text & " " & _
TextBox2.Text & " " & _
TextBox3.Text

ShellExecute 0, _
"Open", "mailto:" & Destinataire & _
"?subject=" & Objet & _
"&Body=" & Corps _
, "", _
0, _
3

End Sub

Hervé.

"mcog" <mcog2NO-SPAM@wanadoo.frNO-SPAM> a écrit dans le message de news:
43f62841$0$29216$8fcfb975@news.wanadoo.fr...

Bonjour,

Sous Excel j'ai une boite de dialogue, une fois les données saisies, je
clic sur un bouton et je souhaite expédier les infos par e-mail, à un
destinataire avec un objet, un texte...

Comment faire ?

Merci,

Olivier

Dans : news:43f7784b$0$19701$8fcfb975@news.wanadoo.fr,
mcog disait :

C'est pas mal tout ça, ça me convient bien,

Merci beaucoup,

S'il était possible que le mail parte tout seul :o) ce serait le top
du top

Sous certaines conditions (avoir Outlook, ou bien être sous XP ou 2000
par exemple) tu peux utiliser CDO. Vois sur cette page :

http://www.faqoe.com/index.php?bas=/rep/cs.php3

Tu peux faire un copier/coller du code dans un sub VBA, cela devrait
fonctionner sans modifications.

Prends plutôt le second code.

Le mail partira tout seul de façon transparente pour toi.


--
Fred
http://www.cerbermail.com/?3kA6ftaCvT