ENVOYER UN MAIL EN VBS AVEC WINSOCK

linkinpar236737 Messages postés 161 Date d'inscription jeudi 20 mars 2003 Statut Membre Dernière intervention 7 mai 2007 - 29 avril 2004 à 08:20
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 13 mars 2012 à 07:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/22375-envoyer-un-mail-en-vbs-avec-winsock

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
13 mars 2012 à 07:44
il suffirait d'après le wiki du smtp de multiplier les clauses RCPT TO
MEEDID Messages postés 10 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 12 mars 2012
12 mars 2012 à 22:35
Bonjour,

J'ai réalisé une application qui envoie des mails en utilisant Winsock en VB6.
Tout fonctionne très bien.

J'aimerai juste pouvoir envoyer le mail à deux personnes.
Soit les deux dans le mail To ou un dans le mail To et un en copie.

je ne trouve pas la commande à placer.

Pouvez-vous m'aider.

merci d'avance
cresti Messages postés 2 Date d'inscription vendredi 17 juillet 2009 Statut Membre Dernière intervention 17 juillet 2009
12 juin 2007 à 22:26
Comment j'ai ton si on veut mettre une pièce jointe
badr07 Messages postés 53 Date d'inscription mercredi 22 février 2006 Statut Membre Dernière intervention 15 novembre 2006
31 oct. 2006 à 11:43
Comment envoyer une piece jointe avec???
racattac13 Messages postés 62 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 14 février 2010
4 sept. 2004 à 17:18
je crois que pour cette histoire de classe il faut installer vb
vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
29 juil. 2004 à 11:10
Salut à tous,

Déja dsl pour le retard !!!


- Pour répondre à fredi_blairo ton probleme surviens au niveau du control winsock. Je ne connais pas win2k mais tu peux deja essayer de passer les derniers service pack sur le site de microsoft. Sinon je t'ai mis dans le zip mon ocx winsock que tu doit placer ou remplacer (mais fait attention fait une copie de l'ancien
on sait jamais) dans le dossier \Windows\System32 .

Sinon pour ce qui de la clé de registre ba je sais pas ca ne marche pas chez tout le monde effectivement. mais j'yconnais pas grand chose, ca vient peut etre de ton serveur de messagerie qui est interne au lan. Il ne serait pas renseigner pareil dans la base de registre. Moi je suis chez wanadoo c'est peut être pour ça.


- Pour répndre à lionel4 on ne peut pas incorporer le code d'un vbs à vb. Vbs est en quelques sortes indépendants (bien que sous vb le vbs marche mais pas le contraire), il doit s'éditer avec le bloc notes ou des éditeurs vbs. Mais si tu cherche une bonne source sur l'envoie de mail avec winsock sur vb va sur :
http://www.vbfrance.com/code.aspx?ID=22699 ou
http://www.vbfrance.com/code.aspx?ID=18350 (c'est la meilleur celle là)


Voilà, j'éspere que ça a pu vous aider.


@ +++ a tous

Bonne prog
Teeshot Messages postés 1 Date d'inscription mardi 2 septembre 2003 Statut Membre Dernière intervention 9 juin 2004
9 juin 2004 à 23:41
Bonjour

J'ai le même problème que fredi_blairo !

Que puis je faire ?

Merci
Ps:je suis super newb
cs_lionel4 Messages postés 129 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 26 septembre 2008
4 juin 2004 à 17:56
Euh comment on incorpore le code a un projet VB ? Dsl me suis jamais servi d'un .vbs
fredi_blairo Messages postés 6 Date d'inscription mardi 18 mai 2004 Statut Membre Dernière intervention 19 mai 2004
19 mai 2004 à 16:33
Je suis sous win2K et lorsque je lance le script j'ai un message d'erreur:

Ligne 28
Caract 1
Erreur : la classe n'a pas de licence d'utilisation

La ligne 28 Correspons à :

'Creation de l'objet Winsock pour se connecter au serveur smtp
Set Wck = CreateObject("MSWinsock.Winsock")

Tu peux m'expliquer stp vincentescalade
(mon serveur de messagerie est interne au lan et s'appelle srvmsg (netbios).
La clé de registre que tu donnes n'existe pas chez moi mais je peux renseigner le serveur manuellement
fredi_blairo Messages postés 6 Date d'inscription mardi 18 mai 2004 Statut Membre Dernière intervention 19 mai 2004
19 mai 2004 à 16:32
Je suis sous win2K et lorsque je lance le script j'ai un message d'erreur:

Ligne 28
Caract 1
Erreur : la classe n'a pas de licence d'utilisation

La ligne 28 Correspons à :

'Creation de l'objet Winsock pour se connecter au serveur smtp
Set Wck = CreateObject("MSWinsock.Winsock")

Tu peux m'expliquer stp vincentescalade
(mon serveur de messagerie est interne au lan et s'appelle srvmsg (netbios).
La clé de registre que tu donnes n'existe pas chez moi mais je peux renseigner le serveur manuellement
fredi_blairo Messages postés 6 Date d'inscription mardi 18 mai 2004 Statut Membre Dernière intervention 19 mai 2004
19 mai 2004 à 16:32
Je suis sous win2K et lorsque je lance le script j'ai un message d'erreur:

Ligne 28
Caract 1
Erreur : la classe n'a pas de licence d'utilisation

La ligne 28 Correspons à :

'Creation de l'objet Winsock pour se connecter au serveur smtp
Set Wck = CreateObject("MSWinsock.Winsock")

Tu peux m'expliquer stp vincentescalade
(mon serveur de messagerie est interne au lan et s'appelle srvmsg (netbios).
La clé de registre que tu donnes n'existe pas chez moi mais je peux renseigner le serveur manuellement
fredi_blairo Messages postés 6 Date d'inscription mardi 18 mai 2004 Statut Membre Dernière intervention 19 mai 2004
19 mai 2004 à 16:32
Je suis sous win2K et lorsque je lance le script j'ai un message d'erreur:

Ligne 28
Caract 1
Erreur : la classe n'a pas de licence d'utilisation

La ligne 28 Correspons à :

'Creation de l'objet Winsock pour se connecter au serveur smtp
Set Wck = CreateObject("MSWinsock.Winsock")

Tu peux m'expliquer stp vincentescalade
(mon serveur de messagerie est interne au lan et s'appelle srvmsg (netbios).
La clé de registre que tu donnes n'existe pas chez moi mais je peux renseigner le serveur manuellement
fredi_blairo Messages postés 6 Date d'inscription mardi 18 mai 2004 Statut Membre Dernière intervention 19 mai 2004
19 mai 2004 à 16:32
Je suis sous win2K et lorsque je lance le script j'ai un message d'erreur:

Ligne 28
Caract 1
Erreur : la classe n'a pas de licence d'utilisation

La ligne 28 Correspons à :

'Creation de l'objet Winsock pour se connecter au serveur smtp
Set Wck = CreateObject("MSWinsock.Winsock")

Tu peux m'expliquer stp vincentescalade
(mon serveur de messagerie est interne au lan et s'appelle srvmsg (netbios).
La clé de registre que tu donnes n'existe pas chez moi mais je peux renseigner le serveur manuellement
fredi_blairo Messages postés 6 Date d'inscription mardi 18 mai 2004 Statut Membre Dernière intervention 19 mai 2004
19 mai 2004 à 16:31
Je suis sous win2K et lorsque je lance le script j'ai un message d'erreur:

Ligne 28
Caract 1
Erreur : la classe n'a pas de licence d'utilisation

La ligne 28 Correspons à :

'Creation de l'objet Winsock pour se connecter au serveur smtp
Set Wck = CreateObject("MSWinsock.Winsock")

Tu peux m'expliquer stp vincentescalade
(mon serveur de messagerie est interne au lan et s'appelle srvmsg (netbios).
La clé de registre que tu donnes n'existe pas chez moi mais je peux renseigner le serveur manuellement
nephix2003 Messages postés 84 Date d'inscription mercredi 4 juin 2003 Statut Membre Dernière intervention 6 novembre 2004
1 mai 2004 à 17:39
impeccable ^^

merci
@++
vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
1 mai 2004 à 15:04
Bon j'ai fait une petite mise à jour cette fois le script recherche d'abord le numero de compte où ce trouve le serveur SMTP. Chez moi ca marche.

Pourriez vous me dire si ca marche chez vous merci d'avance ?????

et au faite merci pour la note nephix2003 !!
nephix2003 Messages postés 84 Date d'inscription mercredi 4 juin 2003 Statut Membre Dernière intervention 6 novembre 2004
1 mai 2004 à 14:15
sympa ^^

je n'ai pas de clé 00000001 dans Accounts, ce qui fait planter le script.
Il faudrait rajouter une recherche auto du SMTP Server parmi les clés de Accounts

Mais avec la bonne clé ça fonctionne bien => 9

@++
tlsosiris Messages postés 24 Date d'inscription dimanche 18 avril 2004 Statut Membre Dernière intervention 14 mai 2004
30 avril 2004 à 20:40
super merci beaucoup ;p
osiris : au dela du possible
vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
30 avril 2004 à 17:33
Voilà le code est commenté j'espére que j'ai été suffisamment clair pour que tu comprenne.
cs_lionel4 Messages postés 129 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 26 septembre 2008
30 avril 2004 à 16:54
Excellent t'as rajouter le registre arf si je pouvais revoter je mettrais 10
tlsosiris Messages postés 24 Date d'inscription dimanche 18 avril 2004 Statut Membre Dernière intervention 14 mai 2004
29 avril 2004 à 22:25
toujours moi (hi hi) s'il te plait c bien tout ca mais peut tu + expliquer les lignes de codes
merci d'avance
osiris : au dela du possible
vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
29 avril 2004 à 22:22
Bon Voila j'ai rajouté la prise du serveur smtp automatique dans la base de registre
vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
29 avril 2004 à 22:14
non en faite les numeros c'est pas grave il ne rentre pas encompte vraiment dans l'adresse. Enfin je crois
vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
29 avril 2004 à 19:43
Lionel4 : Oui c'est bizarre jvais regarder si on trouve les numeros dans une autre clé. :)

tlsosiris :
Quand tu dit que ca marche pas ? Esque t'a le message mail envoyé a la fin?
vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
29 avril 2004 à 19:42
Lionel4 : Oui c'est bizarre jvais regarder si on trouve les numeros dans une autre clé. :)

tlsosiris :
Quand tu dit que ca marche pas ? Esque t'a le message mail envoyé a la fin?
tlsosiris Messages postés 24 Date d'inscription dimanche 18 avril 2004 Statut Membre Dernière intervention 14 mai 2004
29 avril 2004 à 19:34
heu ben pour moi ton code marche pas, au faite bordel commentai vos sources histoire que les ptits newbies(comme moi ;p) puissent comprendre et utiliser ses sources merci d'avance
osiris: au dela du possible
cs_lionel4 Messages postés 129 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 26 septembre 2008
29 avril 2004 à 19:30
HKEY_USERS\S-1-5-21-436374069-764733703-839522115-1003\Software\Microsoft\Internet Account Manager\Accounts\00000001

La mienne est là mais les nombres sont pas les memes, bizarre...
vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
29 avril 2004 à 16:54
Oui effectivement j'en est trouver une sur ma base de registre dans

HKEY_USERS\S-1-5-21-1343024091-507921405-2147197619-1003\Software\Microsoft\Internet Account Manager\Accounts\00000001\

il y a, à cette adresse une cle qui s'appelle "SMTP Server"

mais je sais pas si tout le monde là

Tu là toi?

Sinon effectivement c'est une bonne idee si je mapercois que tout le monde la je modifierais cette source

Merci pour la note.
cs_lionel4 Messages postés 129 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 26 septembre 2008
29 avril 2004 à 15:17
Euh question bete : Peut-on envoyer un mail sans connaitre le parametre serveur ? Y a peut-etre une cle du registre qui permetrais de le récupérer ?
Une idée ?

PS : Excellent code : 9/10
vincentescalade Messages postés 87 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 9 juin 2005
29 avril 2004 à 11:39
Ok mais c'est du vbcsript tu ouvre le bloc note et tu change le point txt en .vbs
linkinpar236737 Messages postés 161 Date d'inscription jeudi 20 mars 2003 Statut Membre Dernière intervention 7 mai 2007
29 avril 2004 à 08:20
Serait il possible de mettre un Zip ? Parce que je ne vois pas comment mettre ce code.
Merci
Rejoignez-nous