Envoi mel smtp via winsock, sans outlook, dll ou composants ocx externe
Description
-----------------------------------
Ce code est basé sur "OCX ENVOIE EMAIL VERSION 2" de pcpunch
(http://www.vbfrance.com/code.aspx?ID=26255)
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 !
-----------------------------------
Ce code est basé sur "OCX ENVOIE EMAIL VERSION 2" de pcpunch
(http://www.vbfrance.com/code.aspx?ID=26255)
Je le remercie vivement, car il m'a permi de comprendre le fonctionnement de Winsock allié à l'envoi d'infos vers une serveur SMTP.
-----------------------------------
Ce code est basé sur "OCX ENVOIE EMAIL VERSION 2" de pcpunch
(http://www.vbfrance.com/code.aspx?ID=26255)
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 !
Conclusion :
-----------------------------------
Ce code est basé sur "OCX ENVOIE EMAIL VERSION 2" de pcpunch
(http://www.vbfrance.com/code.aspx?ID=26255)
Je le remercie vivement, car il m'a permi de comprendre le fonctionnement de Winsock allié à l'envoi d'infos vers une serveur SMTP.
-----------------------------------
Codes Sources
A voir également
- Envoi mel smtp via winsock, sans outlook, dll ou composants ocx externe
- Mscomm32.ocx ✓ - Forum Visual Basic
- MSCOMM32.OCX - Forum Visual Basic 6
- INSTALLER AUTOMATIQUEMENT MSCOMM32.OCX ✓ - Forum VB.NET
- Pb MSCOMM32.OCX ✓ - Forum C# / .NET
- Décompiler dll - Conseils pratiques -C# / .NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.