Envoi mel smtp via winsock, sans outlook, dll ou composants ocx externe

Soyez le premier à donner votre avis sur cette source.

Vue 8 261 fois - Téléchargée 1 351 fois

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 !

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

Ajouter un commentaire

Commentaires

SylvainDeToulon
Messages postés
1
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
15 mars 2007
-
FANTIMAT :
Peux-tu m'en dire un peu plus sur ton problème ?
Je ne constate rien d'anormal...

Merci de tous vos commentaires. En tout cas, je suis déçu qu'un simple mot comme bogue plombe la note de ce code... Certaines personnes sont bizarres quelquefois... ;-)
Surtout quand on voit que le code original dont est issu celui-ci a une note de 8/10... Va comprendre Charles !
mbodjsystem
Messages postés
26
Date d'inscription
jeudi 17 novembre 2005
Statut
Membre
Dernière intervention
9 juillet 2008
-
Salut les amis, je suis vraiment heureux de ce site. il nous permet de faire plein de chose. Mais de grace, ne remplissez pas le forum avec des choses qui ne font pas marcher les logiciels :-)

je parle de toutes vos discutions bug et bogue. cela n'interesse pas le soft. l'essentiel que cela marche. c'est pourquoi les us sont loin par rapport au reste du monde.

A vos claviers cher amis...
fantimat
Messages postés
5
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
13 février 2007
-
Bonjour,
Je viens juste de découvrir ce code d'abord chez pcpunch et ensuite chez toi, mais j'ai un petit pb pour l'executer : j'ai une erreur sur la fonction "join" dans l'instruction suivante : RaiseEvent PiecesJointes(I_PiecesJointes, Join(S_PiecesJointes, ",").
Comme je cherchais une source existante pour ne pas avoir à trop à me prendre la tête, peux tu me dire d'ou viens cette fonction et comment je peux faire pour résoudre mon pb.
Pour info j'utilise encore Vb5.

PS : pour bug ou bogues c'est comme on veut (du moment que tout le monde comprends) le principal c'est de s'entraider pour les résoudres.
fkuchta
Messages postés
44
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
20 novembre 2008
-
Tiens, j'avoue ne pas comprendre la note de 4.75/10, je trouvais ce code utile... et apparemment vous tous aussi !

C'est sûr que ma "bogue" n'a pas dû plaire à tout le monde, mais ça serait bien de faire le tri entre un désaccord sur un terme, et le code concerné ici !

J'ai trouvé le boulot originel de pcpunch plutôt très bien, et souhaitais simplement partager mes améliorations avec vous...

Tant pis !
mstaub
Messages postés
51
Date d'inscription
dimanche 24 août 2003
Statut
Membre
Dernière intervention
29 octobre 2010
1 -
Allez juste pour mettre un peu d'huile sur le feu:
bogue=>chataîgne
alors met les mains dans l'alim du pc (si possible coté 230v)
et tu recevra un(e) bug ! lol...

Ceci mis à part MERCI pour cette source, je crois que c'est exactement ce que je cherchais !!!

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.