aide pour envoie des données par mail et piece jointe

Question

bonjour mon probleme est de trouver pour envoyer  des donn&#233;e par mail merci d'avance


MK

pastis51forever · Answer

Private Sub SendMail()
Dim ObjEMail As Object
    Set ObjEMail = CreateObject("CDO.Message")
    ObjEMail.From = Ton_Adresse
    ObjEMail.To = Son_Adresse
    ObjEMail.Subject = Sujet_Du_Mail
    ObjEMail.Textbody = Corps_du_Texte
ObjEMail.AddAttachment Chemin_du_fichier_a_envoyer
ObjEMail.Send
ObjEMail = Nothing
End Sub

cs_sitemo · Answer

je met ou tout ca stp 


MK

pastis51forever · Answer

Tu places tout ca dans ta page de code, ou dans un module.
Pour l'envoyer, tu appelles direct le sub en  ins&#233;rant, par exemple &#224; 'evenement click d'un bouton;

Private Sub Command1_Click()
SendMail
End Sub

Bien sur, pour que ca marche, il faut que tu remplace les champs suivants par leurs vraies valeurs (toutes sont du type string, entre parenth&#232;ses)
 Ton_Adresse ex: [mailto:toi@hotmail.com toi@hotmail.com]
Son_Adresse ex: [mailto:lui@hotmail.com lui@hotmail.com]
Sujet_Du_Mail ex: "Salut"
Corps_du_Texte ex: "Voici ton fichier"
Chemin_du_fichier_a_envoyer ex: "C:\Fichier.avi"

voila, ca devrait marcher

cs_sitemo · Answer

tu peux reexpliquer stp je suis plus  j'ai 2 fenetres form1 et form2
form1 ya un bouton 
form2 ya les donn&#233;e
stp excuse de tembeter mais di moi je met quoi dans form1 et form2 merci d'avance


MK

pastis51forever · Answer

Tu as l'air tout nouveau... Il doit y avoir plus simple pour d&#233;buter, mais c'est faisable...
commence par le faire tourner avec une seule form, ca sera plus simple...
Tu pose 
1 bouton nomm&#233; Command1


5 textbox nomm&#233;es txtMonMail, txtSonMail, txtSujet, txtLeTexte et txtCheminDeLaPi&#232;ceJointe

tu double-cliques sur le bouton pour arriver sur la page de code


tu remplaces le code existant par celui-ci:


Private Sub Command1_Click()
Dim ObjEMail As Object
    Set ObjEMail = CreateObject("CDO.Message")
    ObjEMail.From = txtMonMail.text
    ObjEMail.To = txtSonMail.text
    ObjEMail.Subject = txtSujet.text
    ObjEMail.Textbody = txtLeTexte.text
if txtchemindelapi&#232;cejointe.text<>"" then
    ObjEMail.AddAttachment txtchemindelapi&#232;cejointe
end if
ObjEMail.Send
ObjEMail = Nothing
End Sub

il te reste plus qu'a tester, normalement ca marche.
Sinon, fais comme tout le monde, recherche dans les sources du site, y'en a plein qui font ca

Aide pour envoie des données par mail et piece jointe

5 réponses

Discussions similaires