Envoi de mail avec vbscript

hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   -  
 ArnaudPia -
Bonjour,
je veut savoire comment envoyé un mail par un script vbs
A voir également:

19 réponses

Réponse 1 / 19
zzzer Messages postés 906 Date d'inscription   Statut Membre Dernière intervention   181
 
S'il vous plaît ?
Merci d'avance ?

http://www.commentcamarche.net/ccmguide/ccmcharte respect autrui.php3#politesse

8
ArnaudPia
 
Et l'option BAC Français n'est pas une option. Marre de devoir tout retranscrire pour comprendre la question.
0
Réponse 2 / 19
fafa76
 
Voici un exemple pour envoyer un mail en vbs . Il y a plsrs methodes mais je prefere celle ci car on peut tout gerer (par des variables entre autre....). Et ca fonctionne tres bein chez moi ... :)



With CreateObject("CDO.Message")
.From="toto@gmail.com" // ici peut importe que l'email existe ou pas
.To="tonDestataire@destinataire.com"
.CC="CopieMail@Copiemail.com" // si tu desires mettre une personne en copie
.Subject="test pour envoie de mail" // objet du mail
.TextBody="Bonjour," & Chr(13) & "Ceci est un test " & Chr(13) & "Cordialement" // ton text
// et le chr(13) sert a aller a la ligne
.AddAttachment("c:\piecejointe.pdf")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ton serveur exchange par exemple si tu utilises outlook ds ta boite : mets y l'IP"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
End If
msgbox "mail bien envoyé"
On Error GoTo 0
End With



En espérant que cela t'aidera..
Farid T.
5
ftouaimia Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
fafa76 =ftouaimia
0
Maxime
 
Merci beaucoup, ça a fonctionné pour moi.
0
petit_gg
 
Super ce code. Ça marche du premier coup. Merci pour le partage.
0
IMAND Messages postés 1 Date d'inscription   Statut Membre Dernière intervention  
 
Cvd nous pouvons envoyer des mails de n'importe quelle boîte mail même si cette dernière ne soit pas la nôtre
0
Réponse 3 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
merci boucoups pour le script mais il y a un erreure de connection au server g legerment modifier votre script
[
With CreateObject("CDO.Message")
.From="toto@gmail.com"
.To="hamza0081@gmail.com"
.CC="CopieMail@Copiemail.com"
.Subject="test pour envoie de mail"
.TextBody="Bonjour," & Chr(13) & "Ceci est un test " & Chr(13) & "Cordialement"

.AddAttachment("c:\piecejointe.pdf")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ton serveur exchange par exemple si tu utilises outlook ds ta boite : mets y l'IP"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
End If
msgbox "mail bien envoyé"
On Error GoTo 0
End With ]




es que tu peut encors m'aider svp ?
2
Réponse 4 / 19
fafa76
 
Bonjour,

Je vois que tu n'as pas de reponse. Je suppose que tu as trouvé la solution.... enfin j'espere pour toi :)
Si ton post est toujours d'actualité ,fais le moi savoir et je t'aiderai aussitot
Cdlt.
1

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
je veut savoire comment envoyé un mail par un script vbs
merci d'avonce les amies
et je suis désoler §§
0
Réponse 6 / 19
toto
 
c'est bizar que tu n'ai pas de réponse :p
0
Réponse 7 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
merci en fin un qui comprand ce que je soufre !!
0
Réponse 8 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
bounjours merci pour votre aides , je tien de vs informer que g pas trouvez ce que je cherche
0
Réponse 9 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
ah ! g oublier de te dir que g cree un fichier c:\piecejointe.pdf
0
Réponse 10 / 19
fafa76
 
bon, si ca fonctionne, c'est le principal.
Quant à la piece jointe, si u n'en as pas besoin, Supprime la ligne correspondante : ceci etait juste un exemple. C'est a toi de l'adapter.

Si tu as encore besoin d'aide, fais le directement savoir sur le forum, ne demande pas ... et je repondrai si possible...
Farid T
0
Réponse 11 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
ca ne foncionne toujour pas il m'affiche un message " the transport failed to connecte to the server "
et autre message dit que le message a ete bien evoyé ?
l'orsque g je verifier ma boite il n'ya pas de message ?



[[With CreateObject("CDO.Message")
.From="toto@gmail.com"
.To="hamza0081@gmail.com"
.CC="hamza0081@gmail.com"
.Subject="test pour envoie de mail"
.TextBody="Bonjour," & Chr(13) & "Ceci est un test " & Chr(13) & "Cordialement"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "stmp3.google.com"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
End If
msgbox "mail bien envoyé"
On Error GoTo 0
End With
0
THEMINECRAFT951
 
smtp.gmail.com pas stmp.gmail.com
0
Réponse 12 / 19
ftouaimia Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
tu es sur de ton adresse smtp (google) ?


sinon je verifie tout a l'heure

Farid
0
Réponse 13 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
pour avoire cette adress g fait
1.lancer cmd
2.tapez nslookup
3.tapez set q=mx
4.tapez google.com
et la resulta est
[[
> set q=mx
> google.com



Non-authoritative answer:
google.com MX preference = 10, mail exchanger = smtp2.google.com
google.com MX preference = 10, mail exchanger = smtp3.google.com
google.com MX preference = 10, mail exchanger = smtp4.google.com
google.com MX preference = 10, mail exchanger = smtp1.google.com

google.com nameserver = ns4.google.com
google.com nameserver = ns1.google.com
google.com nameserver = ns2.google.com
google.com nameserver = ns3.google.com
smtp1.google.com internet address = 209.85.237.25
smtp2.google.com internet address = 64.233.165.25
smtp3.google.com internet address = 64.233.183.25
smtp4.google.com internet address = 72.14.221.25
ns1.google.com internet address = 216.239.32.10
ns2.google.com internet address = 216.239.34.10
ns3.google.com internet address = 216.239.36.10
ns4.google.com internet address = 216.239.38.10
> google.com>>googl.txt
Unrecognized command: google.com>>googl.txt
>

]]

g apris ce si sur le net je untilise cette methode pour connaitre le serveur et pius pour envoyez des eamils
via le cmd avec la connade telnet smtp3.google.com 25


aujourdhuis ce ne marche plus sur google
0
Réponse 14 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
en bref je ne suis pas sur ? je croie que g un ereure qu'el que part :-(
0
Réponse 15 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
avant j'utilise le serveur smtp183.google.com
0
Réponse 16 / 19
ftouaimia Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
de tte facon le serveur smtp pour google est stmp.gmail.com
je dois partir ms je regarde cela demain

Bonne soiree
0
Réponse 17 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
ok ! merci pour tous je vais esseyer le seveur !
bon soire bye :-)
0
Réponse 18 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
With CreateObject("CDO.Message")
.From="toto@gmail.com"
.To="hamza_0081@commentcamarche.com"
.Subject="test pour envoie de mail"
.TextBody="Bonjour," & Chr(13) & "Ceci est un test " & Chr(13) & "Cordialement"


.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "raoul.commentcamarche.org"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
End If
msgbox "mail bien envoyé"
On Error GoTo 0
End With
0
Réponse 19 / 19
hamza_0081 Messages postés 242 Date d'inscription   Statut Membre Dernière intervention   60
 
bon soire j'utilise ce scripte c'a l'aire d'etre tres bien marcher mais je ne recois aucun message ?



With CreateObject("CDO.Message")
.From="hamza_0081@commentcamarche.com"
.To="hamza_0081@commentcamarche.com"
.Subject="test pour envoie de mail"
.TextBody="Bonjour," & Chr(13) & "Ceci est un test " & Chr(13) & "Cordialement"


.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "raoul.commentcamarche.org"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
End If
msgbox "mail bien envoyé"
On Error GoTo 0
End With
0

Discussions similaires

Rétrodiffusion "Mail Delivery System"
baissaoui -
baissaoui -

0 réponse
comment faire si on a un mail delivery system
angeldu5954 -
angeldu5954 -

5 réponses
Phishing faux mail d'avast
Colette34 -
Gerper -

2 réponses
[AT] dans une adresse de messagerie
oracle3810 -
Utilisateur anonyme -

1 réponse
Accéder à mail.live.fr
mag -
Redbart -

1 réponse