Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 03 10:00:09

ADOBE MAX EN IMAGE : UNE PETITE DéMO EN FLEX SYMPA par Nix

[OPEN XML] LE RAPPORT GARTNER OU COMMENT LA NORMALISATION A PU FAIRE OUBLIER LA RAISON par neodante

ÇA AURAIT éTé COOL SI çA AVAIT éTé VRAI! par Miiitch

ADOBE MAX à MILAN => JOUR -1 par pegase31

SQL SERVER : LE FUTUR DES MOTEURS DE RECHERCHE CHEZ MICROSOFT par christian

RE : HELP SUR UTILISATION DES LABELS SVP par Tyrell2

RE : RéCUPéRER LES DONNéES D'UNE AUTRE FORM par jrivet

RE : RéCUPéRER LES DONNéES D'UNE AUTRE FORM par beet2che

RE : DANS UNE FEUILLE FORM, REMPLACER UNE FRAME PAR UNE AUTRE DE TAILLE IDENTIQUE. par 2eio

RE : PROPERTY DANS DLL par candyraton

+ de logiciels à télécharger

1 302 131 membres
87 nouveaux aujourd'hui
14 554 membres club

Trouver une ressource

Trouvez une ressource parmi 39 077 codes, 1 208 493 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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

Information sur la source

Catégorie :VBScript Niveau : Débutant Date de création : 18/09/2004 Vu / téléchargé: 14 204 / 548

Auteur : hodaking

Ecrire un message privé

Note :

1,00 / 10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

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

<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>

<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)!

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

MAILCDO
- boa.ico 1 078 octets
- ENVOI MAIL.html 3 875 octets
- MAIL.hta3 869 octets

Télécharger le zip

Sources du même auteur

JEU EN VBSCRIPT (SORTE DE SPACE INVADER)

CACHE UN SCRIPT DANS UN FICHIER (TRUC VRAIMENT SIMPLE POUR D...

ENVOIE DE MAILS ANONYMES AVEC VBS!!! (SANS PASSER PAR WINSOC...

CHANGER LE MOT DE PASSE ADMINISTRATEUR (EN VBS)

CONNAITRE SON ADRESSE IP/ AFFICHER SON ADRESSE IP DANS UNE M...

Toutes les sources de hodaking

Sources de la même categorie

RESET STATUS DES TÂCHES PLANIFIEES - MODIFICATION FICHIER BI... par gorgotte

VBSCRIPT --> CONVERSION DE FICHIER TEXTE EN FICHIER EXCEL PA... par thorspark

LISTE DES FICHIERS D'UNE ABORESCENCE DE DOSSIERS par Niko2003

BORNE MULTIMÉDIA SIMPLISSIME par piergel

COMPRESSION ET UPLOAD VERS UN SERVEUR FTP par hackoo

Toutes les sources de la catégorie VBScript

Commentaires et avis

Commentaire de linkinpar236737 le 19/09/2004 10:57:47

Ca marche pas avec moi, j'ai essayé le html et hta... aucun succès.

Commentaire de hodaking le 21/09/2004 13:30:09

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!

Commentaire de obipadawan le 11/03/2005 08:22:46

salut,
est-ce que cela fonctionnerait avec un serveur exchange ?

Commentaire de hodaking le 26/04/2005 10:32:28

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.

Commentaire de hodaking le 26/04/2005 10:35:52

Petite faute:

set cdo= createobject("CDO.message")
et non "message.cdo"
pardon!

Commentaire de moudz84 le 06/09/2006 12:44:59

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

Commentaire de hodaking le 30/10/2006 00:41:13

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.