envoi mail automatique Résolu/Fermé

Question

Bonjour,
je souhaiteraie grace a un programme envoyé un email automatiquemen a l'adminstrateur pour signalé un pb d'alimentation ceci devra etre fait automatiquemen des que l'onduleur arrive a 10% de sa capacité je c comment lancé un programme automatiquement a 10% de la capacité mé je c pa faire en sorte que lemail soit envoyé automatiquemen a ladministrateur merci de votre aide

tropare · Answer

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

firehc · Answer

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

Envoi mail automatique

2 réponses

Discussions similaires