Send MailRésolu

Question

Voila je voudrais le code qui permet d'envoier un mail &#224; partir d'un fichier VBs (Visual Basic Script). J'ai trouver ce code ci mais quelque chose ne doit pas etre installer sur mon pc ou une configuration doit etre n&#233;c&#233;ssaire...??!! 

Dim objCDOSYSCon  
Set objCDOSYSCon = CreateObject ("CDO.Configuration") 
dim objMail 
Set objMail = CreateObject("CDO.Message") 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.0.1"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
objCDOSYSCon.Fields.Update  
Set objMail.Configuration = objCDOSYSCon  
objMail.From = "[mailto:xxx@xxx xxx@xxx]" 
objMail.To = "[mailto:xxx@xxx xxx@xxx]" 
objMail.Subject = "x"  
objMail.TEXTBody = "x"
objMail.Send 


aidez moi merci

draluorg · Accepted Answer

Salut,

Bon voila le code complet, mais je ne suis pas sure que ca marche sous Win Me.

Dim Msg, Conf, Config
Set Msg = CreateObject("CDO.Message")    '  pour la configuration du message
Set Conf = CreateObject("CDO.Configuration")   '   pour la configuration de l'envoi
Set Config = Conf.Fields


With Config
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true ' Id SSL 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[mailto:Moi@mail.com Moi@mail.com]" 'compte de messagerie
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx" ' votre mot pass
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' mettre le port 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' generalement a ne pas modifier
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Smtp.mail.com" 'votre serveur SMTP
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 ' delai d'attente de connexion
    .Update
End With
With Msg
Set .Configuration = Conf ' 
    .To = "[mailto:Destinataire@mail.com Destinataire@mail.com]" 'email du destinataire
    .From = "Seb le King! <[mailto:Moi@mail.com Moi@mail.com]>" 'votre email
    .Subject = "Essai" ' objet du message
    .htmlbody = "Salut"  ' votre message       
    '.AddAttachment "C:\monfichier.zip" ' votre fichier joint
    .Send 'envoi du message


End With
set Conf = nothing
set Msg = nothing

Bonne prog @+ 

Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...

draluorg · Answer

Salut,

Eh tu n'as surement  pas de serveur SMTP sur ton pc,
si tel est le cas utilise celui de ton FAI (fournisseur acces internet)
et remplace 
"10.0.0.1" par le nom du serveur 
Exemple si tu es chez free, tu mets "smtp.free.fr"

Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...

animusaquila · Answer

j'ai fait se que tu ma di, en remplacant par smtp.wanadoo.fr (car je suis sur wanadoo) et windows me met une erreur a la ligne 15 comme coi le chemin du r&#233;pertoir et requi et n'a pa &#233;t&#233; sp&#233;cifier! essai pour voir et di moi coi 
merci

Send Mail

3 réponses

Discussions similaires