1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

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
bonjour,

   je suis à la recherche du code en VB6 qui permet d'envoyer un mail. merci

3 réponses

Réponse 1 / 3
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
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 />
0
Réponse 2 / 3
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
 35
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
0
Réponse 3 / 3
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
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>
0