-----------------------------------
Ce code est basé sur "OCX ENVOIE EMAIL VERSION 2" de pcpunch
(http://www.vbfrance.com/code.aspx?ID=2625 5)
Je le remercie vivement, car il m'a permi de comprendre le fonctionnement de Winsock allié à l'envoi d'infos vers une serveur SMTP.
-----------------------------------
J'ai simplement amélioré le code à ma sauce.
Il a les événements suivants (je crois que certains pourcentages étaient erronés et d'autres petites bogues étaient présentes, j'ai donc modifié le code) :
Event Progression(Encours As Long, Total As Long, Pourcent As Integer)
Event Encodage(Enabled As Boolean, Fichier As String, Pourcent As Integer)
Event EnvoiComplet()
Event Reponse(Evenement As String, TxtServeur As String, Mel_Evt_Type As Integer)
Event PiecesJointes(Nb_PiecesJointes As Integer, Liste_PiecesJointes_Separees_Par_Virgule As String)
Il a de nouveaux événements pour faire le tri sur ce que l'on souhaite ou pas gérer :
Evt_Winsock
Evt_SMTP
Evt_Interne
Il a de nouvelles propriétés en lecture/écriture, ce qui permet de remplir au fur et à mesure ses propriétés et d'envoyer le mél à la fin :
ServeurSmtp() As String
Expediteur() As String
Destinataire() As String
Sujet() As String
Message() As String
Sa méthode d'envoi, sans paramètre :
Sub Envoyer()
Il a aussi une propriété en lecture seule qui permet de savoir si un envoi est en cours à tout moment :
EnvoiEnCours() As Boolean
Il a une fonction qui permet de récupérer une chaîne des noms de fichier des pièces jointes :
Function PiecesJointesListe() As String
Voilà.
Bon envoi !