Sending mail via vbs and CDO
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 à 13:58
tupac86 - 16 août 2009 à 12:35
tupac86 - 16 août 2009 à 12:35
A voir également:
- Sending mail via vbs and CDO
- Yahoo mail - Guide
- Publipostage mail - Guide
- Windows live mail - Télécharger - Mail
- Thunderbird mail - Télécharger - Mail
- Vbs windows - Guide
2 réponses
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 à 14:15
28 juil. 2008 à 14:15
resalut g trouver aussi ce script
dans ce forum
http://www.paulsadowski.com/WSH/cdo.htm#LoadFromFile
je crois que c'est le plus correcte car il utilise un serveur smpt moi j'ai choisi ce luis
de gmail (google) : gsmtp183.google.com
mais la j'ai ressu cette erreur
ligne :24
caract :1
erreur :le serveur a rejeté une ou plusieurs addresses de destinataires.............
code :8004020f
es que vous pouvais m'aider ??? svp
merci voila le code :
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "me@my.com"
objMessage.To = "adresse@gmail.fr"
objMessage.TextBody = "This is some sample message text."
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "gsmtp183.google.com"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send
objMessage.Send
dans ce forum
http://www.paulsadowski.com/WSH/cdo.htm#LoadFromFile
je crois que c'est le plus correcte car il utilise un serveur smpt moi j'ai choisi ce luis
de gmail (google) : gsmtp183.google.com
mais la j'ai ressu cette erreur
ligne :24
caract :1
erreur :le serveur a rejeté une ou plusieurs addresses de destinataires.............
code :8004020f
es que vous pouvais m'aider ??? svp
merci voila le code :
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "me@my.com"
objMessage.To = "adresse@gmail.fr"
objMessage.TextBody = "This is some sample message text."
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "gsmtp183.google.com"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send
objMessage.Send
Pour répondre à ta question il faut que tu es un serveur SMTP, avec hMailServer cela est possible regarde sur ce site il t'explique comment le configurer http://ww1.jdl68160.com/informatique/hmail/config.htm tout ceci est gratuit. Ensuite pour le script j'en ai fait un automatique, qui te demande tous les détails. Pour ton serveur SMTP marque SMTP. ton fournisseur d'accès à Internet.fr de toute façon mon script le fait automatiquement en te demandant ton FAI.
Le voilà :
dim adresseenvoyeur
dim recepteur
dim sujet
dim message
dim copie
dim PJ
dim smtp
dim fournisseur
dim fr
smtp=("smtp.")
fr=(".fr")
adresseenvoyeur=inputbox("Adresse de l'émetteur du message")
recepteur=inputbox("Adresse du récepteur")
copie=inputbox("Adresse du récepteur de la copie du message(falcutatif)")
sujet=inputbox("Sujet du message")
message=inputbox("Ton message")
PJ=inputbox("Veux tu une pièce jointe si oui marque le chemin çi dessous")
fournisseur=inputbox("Ton fornisseur d'accès à Internet est :")
msgbox("L'émetteur du message : "&(adresseenvoyeur) &(Chr(13))&"Le recepteur : "&(recepteur) &(Chr(13))&"Le recepteur de la copie du message : "&(copie) &(Chr(13))&"Le sujet du message : "&(sujet) &(Chr(13))&"Ton message envoyé : "&(message) &(Chr(13))&"Pièce jointe au message : "&(PJ) &(Chr(13))&"Ton message est prêt à etre envoyé.")
With CreateObject("CDO.Message")
.From=(adresseenvoyeur)
.To=(recepteur)
.CC=(copie)
.Subject=(sujet)
.TextBody=(message)
.AddAttachment(PJ)
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") =((smtp&fournisseur&fr))
.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 aidera quelqu'un.
Le voilà :
dim adresseenvoyeur
dim recepteur
dim sujet
dim message
dim copie
dim PJ
dim smtp
dim fournisseur
dim fr
smtp=("smtp.")
fr=(".fr")
adresseenvoyeur=inputbox("Adresse de l'émetteur du message")
recepteur=inputbox("Adresse du récepteur")
copie=inputbox("Adresse du récepteur de la copie du message(falcutatif)")
sujet=inputbox("Sujet du message")
message=inputbox("Ton message")
PJ=inputbox("Veux tu une pièce jointe si oui marque le chemin çi dessous")
fournisseur=inputbox("Ton fornisseur d'accès à Internet est :")
msgbox("L'émetteur du message : "&(adresseenvoyeur) &(Chr(13))&"Le recepteur : "&(recepteur) &(Chr(13))&"Le recepteur de la copie du message : "&(copie) &(Chr(13))&"Le sujet du message : "&(sujet) &(Chr(13))&"Ton message envoyé : "&(message) &(Chr(13))&"Pièce jointe au message : "&(PJ) &(Chr(13))&"Ton message est prêt à etre envoyé.")
With CreateObject("CDO.Message")
.From=(adresseenvoyeur)
.To=(recepteur)
.CC=(copie)
.Subject=(sujet)
.TextBody=(message)
.AddAttachment(PJ)
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") =((smtp&fournisseur&fr))
.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 aidera quelqu'un.
