Soyez le premier à donner votre avis sur cette source.
Vue 22 404 fois - Téléchargée 736 fois
<head><title>_______________________MAIL___________________</title> <script language=vbscript> sub window_onload() l.style.left=0 l.style.top=0 self.resizeto 463,437 self.moveby 10, 10 end sub sub envoi() if document.l.expediteur.value<>"" and document.l.destinataire.value<>"" then expe=document.l.expediteur.value desti=document.l.destinataire.value set r=createobject("CDO.Message") r.from=expe r.to=desti r.subject= document.l.objet.value r.TextBody= document.l.n.value r.Configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2 '_____________________________INDEX SERVER SMTP_________________________ voila=instr(desti,"voila.fr") hotmail=instr(desti,"hotmail") msn=instr(desti,"msn.com") yahoo=instr(desti,"yahoo") wanadoo=instr(desti,"wanadoo") caramail=instr(desti,"caramail") laposte=instr(desti,"laposte.net") '________________________VOILA_____________________ if voila>=1 then r.Configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.voila.fr" end if '_____________________________HOTMAIL________________ if hotmail>=1 then r.Configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mx4.hotmail.com" end if '___________________________YAHOO________________________ if yahoo>=1 then r.Configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mx4.mail.yahoo.com" end if '___________________________WANADOO________________________ if wanadoo>=1 then r.Configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.wanadoo.fr" end if '___________________________CARAMAIL________________________ if caramail>=1 then r.Configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mx2.mail.spray.net" end if '__________________________LAPOSTE________________________ if laposte>=1 then r.Configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp1.laposte.net" end if r.configuration.fields.update if document.l.fich.value<>"" then r.addattachment document.l.fich.value end if r.send document.l.n.value="" document.l.destinataire.value="" document.l.fich.value="" msgbox"Message envoyé avec succés!!!",vbsystemmodal,"OK" else msgbox"Renplissez correctement les champs destinataire et expediteur!",vbsystemmodal+vbinformation,"ATTENTION" end if end sub sub window_onresize() self.resizeto 463,437 self.moveby 10, 10 end sub </script> <BODY style="Font-Weight='bold'" BGColor="gray" LeftMargin=0 TopMargin=0 MarginWidth=0 MarginHeight=0 scroll=no > <form name="l" style="position:absolute"> <table border=10> <tr><td><p style="font-family:impact">Expéditeur:</p></td><td><input type="texte" size=50 id="expediteur" style="font-family:arial"></td></tr> <tr><td><p style="font-family:impact">Destinataire:</p></td><td><input type="texte" size=50 id="destinataire" style="font-family:arial"></td></tr> <tr><td><p style="font-family:impact">Objet:</p></td><td><input type="texte" size=50 id="objet" style="font-family:arial"></td></tr> <tr><td colspan=2> <p align=center> <textarea id="n" rows=10 cols=60 style="font-family:arial"></textarea></p></td></tr><tr><td colspan=2></td></tr><tr> <td colspan=2><input type=reset value="RESET" style="background:gray; cursor: ;font-size:6pt; font-family:comic sans ms"><p align=right><b>FICHIER JOINT:</b><input type="file" value="joindre" id="fich" style="font-family:arial" ></p> </td></tr><tr><td colspan=2> <p align=center> <input type=button value=":::::ENVOYER:::::" style="background:gray; cursor:hand; font-family:scriptS; border:black 8px solid" onclick="envoi()"></p></td></tr> </table> </form> </body>
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.
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
set cdo= createobject("CDO.message")
et non "message.cdo"
pardon!
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.
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.