Envoyer un mail avec vbscript (du déja vu sur ce site)

Soyez le premier à donner votre avis sur cette source.

Vue 22 270 fois - Téléchargée 724 fois

Télécharger le projet
Commenter

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!

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)!
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
linkinpar236737
Messages postés
161
Date d'inscription
jeudi 20 mars 2003
Statut
Membre
Dernière intervention
7 mai 2007
 -
Ca marche pas avec moi, j'ai essayé le html et hta... aucun succès.
Signaler
hodaking
Messages postés
26
Date d'inscription
jeudi 19 février 2004
Statut
Membre
Dernière intervention
17 février 2009
 -
Qu'est ce qui fonctionne pas?
T'as un message d'erreur?
Si t'as essayé d'envoyer un mail à un destinataire d'hotmail c'est fort possible qu'il y a un petit bug!
Si c'est le cas change de server smtp:
le mx4 tu le remplace par mx3:
http://schemas.microsoft.com/cdo/configuration/smtpserver")="mx3.hotmail.com"


si c'est msn:
'_____________________________MSN________________
if msn>=1 then
r.Configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mx4.hotmail.com"
end if

J'ai vu que j'ai completement oublié de le mettre msn dedans!!!
Quel C...! rajoute ça dans le code source dans la partie
index smtp. Excuse moi! Si ça fonctionne toujour pas
je sais vraiment pas quoi faire!
Signaler
obipadawan
Messages postés
8
Date d'inscription
mercredi 11 septembre 2002
Statut
Membre
Dernière intervention
6 janvier 2010
 -
salut,
est-ce que cela fonctionnerait avec un serveur exchange ?
Signaler
hodaking
Messages postés
26
Date d'inscription
jeudi 19 février 2004
Statut
Membre
Dernière intervention
17 février 2009
 -
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.
Signaler
hodaking
Messages postés
26
Date d'inscription
jeudi 19 février 2004
Statut
Membre
Dernière intervention
17 février 2009
 -
Petite faute:

set cdo= createobject("CDO.message")
et non "message.cdo"
pardon!
Afficher les 8 commentaires
S'inscrire maintenant

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.

Du même auteur (hodaking)