Envoi de mail avec vbscript
Fermé
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
-
28 juil. 2008 à 11:46
ArnaudPia - 20 mai 2021 à 09:31
ArnaudPia - 20 mai 2021 à 09:31
A voir également:
- Vbs mail
- Yahoo mail - Accueil - Mail
- Publipostage mail - Accueil - Word
- Windows live mail - Télécharger - Mail
- Vbs windows - Accueil - Optimisation
- Boîte mail française gratuite - Guide
19 réponses
zzzer
Messages postés
907
Date d'inscription
dimanche 25 mai 2008
Statut
Membre
Dernière intervention
3 décembre 2023
181
28 juil. 2008 à 11:50
28 juil. 2008 à 11:50
S'il vous plaît ?
Merci d'avance ?
http://www.commentcamarche.net/ccmguide/ccmcharte respect autrui.php3#politesse
Merci d'avance ?
http://www.commentcamarche.net/ccmguide/ccmcharte respect autrui.php3#politesse
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.
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.
ftouaimia
Messages postés
3
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
13 octobre 2008
13 oct. 2008 à 18:07
13 oct. 2008 à 18:07
fafa76 =ftouaimia
IMAND
Messages postés
1
Date d'inscription
mercredi 29 juin 2016
Statut
Membre
Dernière intervention
29 juin 2016
29 juin 2016 à 10:09
29 juin 2016 à 10:09
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
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
13 oct. 2008 à 17:32
13 oct. 2008 à 17:32
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 ?
[
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 ?
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
28 juil. 2008 à 12:26
28 juil. 2008 à 12:26
je veut savoire comment envoyé un mail par un script vbs
merci d'avonce les amies
et je suis désoler §§
merci d'avonce les amies
et je suis désoler §§
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
10 sept. 2008 à 12:56
10 sept. 2008 à 12:56
merci en fin un qui comprand ce que je soufre !!
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
12 oct. 2008 à 19:03
12 oct. 2008 à 19:03
bounjours merci pour votre aides , je tien de vs informer que g pas trouvez ce que je cherche
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
13 oct. 2008 à 17:34
13 oct. 2008 à 17:34
ah ! g oublier de te dir que g cree un fichier c:\piecejointe.pdf
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
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
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
13 oct. 2008 à 18:16
13 oct. 2008 à 18:16
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
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
ftouaimia
Messages postés
3
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
13 octobre 2008
13 oct. 2008 à 18:28
13 oct. 2008 à 18:28
tu es sur de ton adresse smtp (google) ?
sinon je verifie tout a l'heure
Farid
sinon je verifie tout a l'heure
Farid
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
13 oct. 2008 à 18:36
13 oct. 2008 à 18:36
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
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
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
13 oct. 2008 à 18:37
13 oct. 2008 à 18:37
en bref je ne suis pas sur ? je croie que g un ereure qu'el que part :-(
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
13 oct. 2008 à 18:41
13 oct. 2008 à 18:41
avant j'utilise le serveur smtp183.google.com
ftouaimia
Messages postés
3
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
13 octobre 2008
13 oct. 2008 à 18:43
13 oct. 2008 à 18:43
de tte facon le serveur smtp pour google est stmp.gmail.com
je dois partir ms je regarde cela demain
Bonne soiree
je dois partir ms je regarde cela demain
Bonne soiree
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
13 oct. 2008 à 18:51
13 oct. 2008 à 18:51
ok ! merci pour tous je vais esseyer le seveur !
bon soire bye :-)
bon soire bye :-)
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
21 oct. 2008 à 19:21
21 oct. 2008 à 19:21
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
.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
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
21 oct. 2008 à 19:25
21 oct. 2008 à 19:25
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
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
20 mai 2021 à 09:31