Envoi mail automatique
Résolu
tropare
Messages postés
85
Statut
Membre
-
firehc -
firehc -
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
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
A voir également:
- Envoi mail automatique
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Programmer envoi mail gmail - Guide
- Windows live mail - Télécharger - Mail
- Envoi mail cci - Guide
2 réponses
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
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
