Envoyer un mail avec vbscript (du déja vu sur ce site)
Soyez le premier à donner votre avis sur cette source.
Vue 22 348 fois - Téléchargée 736 fois
Description
Petit programme permettant d'envoyer des mails avec pièce jointe!
Avant de publier ce code source j'ai fouillé dans le site et j'ai trouvé
des sources à peu prés similaire à la mienne! Donc ne vous émerveillez pas
ça n'est pas du nouveau! Le seul truc qui est peut être différent c'est l'interface
graphique! extension .hta ou .html
Il y a peu être des bugs pour vous mais pour moi il n'y en a aucun!
Ben vous copiez tout ça dans le bloc note et vous l'enregistrez avec l'extention .hta
Et si vous avez un problème avec les fichiers hta téléchargez le zip!
J'espère que ça fonctionne chez vous!
Il y aura des mises à jour! (plusieurs pièces jointes)!
Avant de publier ce code source j'ai fouillé dans le site et j'ai trouvé
des sources à peu prés similaire à la mienne! Donc ne vous émerveillez pas
ça n'est pas du nouveau! Le seul truc qui est peut être différent c'est l'interface
graphique! extension .hta ou .html
Il y a peu être des bugs pour vous mais pour moi il n'y en a aucun!
Source / Exemple :
<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>
Conclusion :
Ben vous copiez tout ça dans le bloc note et vous l'enregistrez avec l'extention .hta
Et si vous avez un problème avec les fichiers hta téléchargez le zip!
J'espère que ça fonctionne chez vous!
Il y aura des mises à jour! (plusieurs pièces jointes)!
Codes Sources
A voir également
- Vu net mail
- Vu mail - Meilleures réponses
- Envoyer un mail en java - Conseils pratiques - Java
- Envoie de mail php - Forum - PHP
- Envoyer un mail en se faisant passer pour un autre - Guide
- Contrôler outlook 2003 - envoyer un mail depuis vb.net 2005 - Conseils pratiques - Visual Basic / VB.NET
- Visual Basic / VB.NET : Utiliser le mapi pour envoyer un mail - CodeS SourceS - Guide
Commentaires
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.