sending mail via vbs and CDO Fermé

Question

Bonjour,
salut j'ai chercher dans google pour un script vbs pour envoi de mail et j'ai trouver ce si : 


objMessage.Subject = "Example CDO Message" 
objMessage.From = "your mail" 
objMessage.To = "destination mail" 
objMessage.TextBody = "test vbs mail"
objMessage.Send


simple et facile a comprandre pour un debuton mais quant je l'execute sous le nom [mailsender.vbs]

il me donne cette erreure

line : 6
caracter : 1
erreur : la valeur de configuration "sendusing" est non valide
code 80040220
source : CDO.Message.1

s'il vous plait es que il y a 1 qui peut m'aider sur ce script
et mercie d'avonce
une dernier question c quoi le VDO ??
merci



https://hamza0081.fr.gd/

hamza_0081 · Answer

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

tupac86 · Answer

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.

Sending mail via vbs and CDO

2 réponses

Discussions similaires