Code VB6 pour envoyer un mail
SPBT57
Messages postés
1
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
6 janvier 2009
-
6 janv. 2009 à 15:11
skyla Messages postés 60 Date d'inscription samedi 17 juin 2006 Statut Membre Dernière intervention 19 octobre 2009 - 6 janv. 2009 à 22:59
skyla Messages postés 60 Date d'inscription samedi 17 juin 2006 Statut Membre Dernière intervention 19 octobre 2009 - 6 janv. 2009 à 22:59
A voir également:
- Vb6 send email
- Vb6 wait ✓ - Forum Visual Basic 6
- Vb6 windows 10 ✓ - Forum Visual Basic 6
- Vb6 mid ✓ - Forum Visual Basic
- Vb6 split ✓ - Forum Visual Basic 6
- Datediff vb6 ✓ - Forum Visual Basic 6
3 réponses
lillith212
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
6 janv. 2009 à 15:37
6 janv. 2009 à 15:37
Bonjour,
Avec un peu de recherche...
http://www.vbfrance.com/codes/ENVOYER-MAIL-VB6-AVEC-SMTP-SERVEUR_46211.aspx
N'oublis pas le réglement, pas de code tout cuit comme ca un minimum d'effort...
Merci
S.L.B.
<hr />
Avec un peu de recherche...
http://www.vbfrance.com/codes/ENVOYER-MAIL-VB6-AVEC-SMTP-SERVEUR_46211.aspx
N'oublis pas le réglement, pas de code tout cuit comme ca un minimum d'effort...
Merci
S.L.B.
<hr />
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
6 janv. 2009 à 15:43
6 janv. 2009 à 15:43
Salut,
Un peu de recherche sur le site doit de donner la réponse.
Pistes à explorer
Via pop3 et smpt
ou via outlook
apres a toi de gérer
Un peu de recherche sur le site doit de donner la réponse.
Pistes à explorer
Via pop3 et smpt
ou via outlook
apres a toi de gérer
skyla
Messages postés
60
Date d'inscription
samedi 17 juin 2006
Statut
Membre
Dernière intervention
19 octobre 2009
6 janv. 2009 à 22:59
6 janv. 2009 à 22:59
Salut,
Voici une fonctions simple pour l'envoi d'email en vb6,simplement et qui marche toujours vu qu'on passe par
sa prope boite mail.
Private Sub SendMail(strFrom as string,strTo as string,strSubject as string,strLogin as string,strPass as string,strMessage as string)
On Error GoTo eRRSending
MousePointer = 11
Set objEmail = CreateObject("CDO.Message")
objEmail.From = strFrom
objEmail.To = strTo
objEmail.Subject = strSubject
objEmail.HTMLbody = strMessage
'Ici le message est de type HTML pour pouvoir faire des mises en forme
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'On precise qu'on veut remplir le formulaire d'envoie
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Que l'on souhaite s'identifier
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = strLogin 'On donne notre Login
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPass 'Notre mot de passe
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.mail.yahoo.fr" 'Ici c'est le cas de yahoo 'SMTP de la boite
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Port defini a 25
objEmail.Configuration.Fields.Update 'On met a jour les champs
objEmail.Send 'On envoie..
DoEvents
MousePointer = 0
MsgBox "Message envoyé"
Set objEmail = Nothing
MousePointer = 0
Exit Sub
eRRSending:
'Une erreur est survenu,on l'affiche
MousePointer = 0
MsgBox Err.Description
Set objEmail = Nothing
End Sub
'=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
'Petit inconvenient si on utilise un éditeur Hexa le mot de passe peut sortir en clair
'alors eclate ton mail et ton password dans une chaine avant de la passer a la fonction
'ex: MonMail="M" & "o" & "n" & "M" & ......
<sup>
[mailto:Sk@yL
]
</sup>
<sub>
</sub>
Voici une fonctions simple pour l'envoi d'email en vb6,simplement et qui marche toujours vu qu'on passe par
sa prope boite mail.
Private Sub SendMail(strFrom as string,strTo as string,strSubject as string,strLogin as string,strPass as string,strMessage as string)
On Error GoTo eRRSending
MousePointer = 11
Set objEmail = CreateObject("CDO.Message")
objEmail.From = strFrom
objEmail.To = strTo
objEmail.Subject = strSubject
objEmail.HTMLbody = strMessage
'Ici le message est de type HTML pour pouvoir faire des mises en forme
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'On precise qu'on veut remplir le formulaire d'envoie
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Que l'on souhaite s'identifier
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = strLogin 'On donne notre Login
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPass 'Notre mot de passe
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.mail.yahoo.fr" 'Ici c'est le cas de yahoo 'SMTP de la boite
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Port defini a 25
objEmail.Configuration.Fields.Update 'On met a jour les champs
objEmail.Send 'On envoie..
DoEvents
MousePointer = 0
MsgBox "Message envoyé"
Set objEmail = Nothing
MousePointer = 0
Exit Sub
eRRSending:
'Une erreur est survenu,on l'affiche
MousePointer = 0
MsgBox Err.Description
Set objEmail = Nothing
End Sub
'=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
'Petit inconvenient si on utilise un éditeur Hexa le mot de passe peut sortir en clair
'alors eclate ton mail et ton password dans une chaine avant de la passer a la fonction
'ex: MonMail="M" & "o" & "n" & "M" & ......
<sup>
[mailto:Sk@yL
]
</sup>
<sub>
</sub>
