ENVOYER UN MAIL AVEC VBSCRIPT (DU DÉJA VU SUR CE SITE)

linkinpar236737
Messages postés
161
Date d'inscription
jeudi 20 mars 2003
Statut
Membre
Dernière intervention
7 mai 2007
- 19 sept. 2004 à 10:57
mengele
Messages postés
29
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
12 mai 2010
- 28 févr. 2009 à 15:19
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/26243-envoyer-un-mail-avec-vbscript-du-deja-vu-sur-ce-site

mengele
Messages postés
29
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
12 mai 2010

28 févr. 2009 à 15:19
merci pour cette remarque qui m'a été bien utile à moi aussi HODAKING =D
hodaking
Messages postés
26
Date d'inscription
jeudi 19 février 2004
Statut
Membre
Dernière intervention
17 février 2009

30 oct. 2006 à 00:41
il faut que tu rajoute cette ligne dans ton code:
r.configuration.fields.update 'cette ligne dois se trouver juste avant r.send

Ici r est bien entendu la librairie CDO.message:
set r=createobject("CDO.message")
Je crois que le problème vient de là.
J'espere que ça va marcher cette fois ci.
moudz84
Messages postés
64
Date d'inscription
mardi 5 septembre 2006
Statut
Membre
Dernière intervention
27 septembre 2007

6 sept. 2006 à 12:44
salut, je suis en train de faire un projet ou je doit effectuer un envoi de mail, j'ai pris ton code et je l'ai changer un peu pour faire un fichier vbs
en gros j'ai enlever les l.style.top=0,document.l.expediteur.value, et la fonctions window_onload et l'autre ( bien sure j'ai remplie l'expediteur et destinataire )

tout compile bien a part la ligne l plue important, il me dit: la valeur de configuration µSendUsing" est non valide code: 80040220
et l'erreur vien de r.send

est ce que tu sais c'est à cause de quoi?
merci
hodaking
Messages postés
26
Date d'inscription
jeudi 19 février 2004
Statut
Membre
Dernière intervention
17 février 2009

26 avril 2005 à 10:35
Petite faute:

set cdo= createobject("CDO.message")
et non "message.cdo"
pardon!
hodaking
Messages postés
26
Date d'inscription
jeudi 19 février 2004
Statut
Membre
Dernière intervention
17 février 2009

26 avril 2005 à 10:32
Salut obipadawan!

La réponse est oui! Cela fonctionne avec un serveur exchange!
Pour cela:
démarrer/executer/cmd
dans la console tapes nslookup puis entrer.
set type = mx puis entrer
tu tapes l'adresse du serveur (ex: hotmail.com ou caramail.com) et tu appuis sur entrer.
Tu auras la liste de serveurs exchange!
par exemple pour hotmail c'est: mx4.hotmail.com ou
mx1.hotmail.com ou mx3.hotmail.com

Cette adresse tu la mets ensuite dans le code qui donnera:

set cdo=createobject("message.cdo")
cdo.from="expéditeur@hotmail.com"
cdo.to="destinataire@serveurExchange.com"
cdo.subject="Sujet"
cdo.textbody="Corp du message"
'_________Configuration__________
cdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2


cdo.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="serveur exchange récupéré avec nslookup"

cdo.configuration.fields.update

cdo.send
msgbox "Message envoyé!"

Voila! Essayes ça mais je ne te garanti rien!
Déjà la note que j'ai eu veut tout dire!
Désolé pour la réponse en retard.
Afficher les 8 commentaires