Envoi mail automatique [Résolu]

g trouvé pr ceux que sa intereseré je mé le code


Set objEmail = CreateObject("CDO.Message")
objEmail.From = "votre adresse mail ou nom"
objEmail.To = "adresse mail de destination"
objEmail.Subject = "le sujet du message"
objEmail.Textbody = "le message"

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "votre serveur smtp"

'Server port (typically 25)
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objEmail.Configuration.Fields.Update

objEmail.Send

Salut,

Ton code source c'est une macro excell ou un bout de code VB ou un batch, parce que la perso on peut se demander ou le mettre et comment le lancer.

pense aux novices MERCI