Ocx envoie email version 2

Description

Une nouvelle mouture de mon ocx d'envoie d'Email, cette ocx utilise un control winsock afin de faciliter l'envoie d'email avec piéces jointes. Récement je me suis servir de cette ocx, mais je me suis aperçu qu'il fonctionné trés mal, voila pourquoi je le repost en version 2, aprés qq test il m'apparait trés stable.

J'ai joint un exemple complet d'utilisation de l'ocx.

PS: attention pour les comptes Hotmail le courrier arrive parfois dans le courrier indésirable, alors verifier avant de de dire qu'il ne fonctionne pas!!!!!!

Source / Exemple :


'Commandes :
'***********
'Email1.SeveurSmtp = le serveur smtp (Generalement Smtp.Fai.fr)
'Email1.PieceJointeAjout "C:\fichier.ext"
'Email1.PieceJointeSuppr "C:\fichier.ext"
'Email1.Envoie Email Expediteur,Email Destinataire, Sujet , Message

'Cette Ocx posséde les Evenements Suivant :
'************************************

'Private Sub Email1_Reponse(Evenement As String, TxtServeur As String)
'Evenement : interprétation de la reponse du serveur
'TxtServeur : la reponse du serveur

'Private Sub Email1_Progression(Encours As Long, Total As Long, Pourcent As Integer)
'Encours : renvoie le nb octects envoyé
'Total : le nb total d'octects a envoyer
'Pourcent : le pourcentage effectué

'Private Sub Email1_FichiersJoints(nb As Integer, Liste As String)
'nb : renvoie le nb total de fichier(s) joint(s)
'liste : renvoie le path des fichiers joints avec pour séparateur la virgule
'Exemple "c:\fichier.txt , d:\image.jpg"

'Private Sub Email1_Encodage(Enabled As Boolean, Fichier As String, Pourcent As Integer)
'Enabled : renvoie true si encodage en cours sinon false
'fichier : le nom du fichier en cours d'encodage
'Pourcant : le pourcentage d'encodage effectué du fichier
'PS pour joindre un fichier il est nécéssaire de faire un ecodageUU
'mais la fonction d'encodageUU du controle n'est pas optimisé
'si qq peu m'aider a l'optimiser car je la trouve assez longue...

Conclusion :


Ps : Maitenant je pense y inclure une partie protocole Pop pour la lecture d'Email.

J'espére que ce controle vous sera utilise......

++

Codes Sources

A voir également

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.