Sujet Précédent Sujet Suivant

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
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 907 Date d'inscription dimanche 25 mai 2008 Statut Membre Dernière intervention 3 décembre 2023 181
28 juil. 2008 à 11:50
S'il vous plaît ?
Merci d'avance ?

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

8
ArnaudPia
20 mai 2021 à 09:31
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
13 oct. 2008 à 10:41
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 mardi 23 septembre 2008 Statut Membre Dernière intervention 13 octobre 2008
13 oct. 2008 à 18:07
fafa76 =ftouaimia
0
Maxime
30 déc. 2013 à 11:08
Merci beaucoup, ça a fonctionné pour moi.
0
petit_gg
4 janv. 2016 à 22:20
Super ce code. Ça marche du premier coup. Merci pour le partage.
0
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
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 26 avril 2009 60
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 ?
2
Réponse 4 / 19
fafa76
23 sept. 2008 à 14:11
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 26 avril 2009 60
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 §§
0
Réponse 6 / 19
toto
10 sept. 2008 à 10:18
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 26 avril 2009 60
10 sept. 2008 à 12:56
merci en fin un qui comprand ce que je soufre !!
0
Réponse 8 / 19
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
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 26 avril 2009 60
13 oct. 2008 à 17:34
ah ! g oublier de te dir que g cree un fichier c:\piecejointe.pdf
0
Réponse 10 / 19
fafa76
13 oct. 2008 à 18:04
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 26 avril 2009 60
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
0
THEMINECRAFT951
15 avril 2015 à 19:45
smtp.gmail.com pas stmp.gmail.com
0
Réponse 12 / 19
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
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 26 avril 2009 60
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
0
Réponse 14 / 19
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
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 26 avril 2009 60
13 oct. 2008 à 18:41
avant j'utilise le serveur smtp183.google.com
0
Réponse 16 / 19
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
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 26 avril 2009 60
13 oct. 2008 à 18:51
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 26 avril 2009 60
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
0
Réponse 19 / 19
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
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

Arnaque ou pas?
Pauline -
bonjour -

24 réponses
comment faire si on a un mail delivery system
angeldu5954 -
angeldu5954 -

5 réponses
Me connecter sur ma boite outlook .fr
Irma -
Utilisateur anonyme -

1 réponse
comment avoir accès à ma boîte mail live.fr
mag -
Redbart -

1 réponse