Send Mail

Résolu
animusaquila
Messages postés
29
Date d'inscription
jeudi 23 juin 2005
Statut
Membre
Dernière intervention
25 mars 2009
- 30 août 2005 à 19:03
draluorg
Messages postés
625
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
25 novembre 2010
- 31 août 2005 à 21:18
Voila je voudrais le code qui permet d'envoier un mail à 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écé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

3 réponses

draluorg
Messages postés
625
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
25 novembre 2010

31 août 2005 à 21:18
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...
3
draluorg
Messages postés
625
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
25 novembre 2010

30 août 2005 à 20:46
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...
0
animusaquila
Messages postés
29
Date d'inscription
jeudi 23 juin 2005
Statut
Membre
Dernière intervention
25 mars 2009

31 août 2005 à 20:30
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épertoir et requi et n'a pa été spécifier! essai pour voir et di moi coi
merci
0