Mail Automatique contenant la date et l'heure de l'envoie
Résolu
QsecX
-
QsecX -
QsecX -
Bonjour,
J'ai créer une tache pour que Outlook envoie un mail automatique de test à une heure précise. J'aimerai que dans le corp du mail, il y est la date et l'heure d'envoie du mail.
Pour info mon .vbs est :
Donc voila j'aimerai savoir si cela est possible? Et si oui comment?
Merci d'avance.
J'ai créer une tache pour que Outlook envoie un mail automatique de test à une heure précise. J'aimerai que dans le corp du mail, il y est la date et l'heure d'envoie du mail.
Pour info mon .vbs est :
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "***@***"
objEmail.To = "***@***"
objEmail.Subject = "Sujet: Test"
objEmail.Textbody = "Test"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =_
"bla.bla.com"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Donc voila j'aimerai savoir si cela est possible? Et si oui comment?
Merci d'avance.
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |
A voir également:
- Mail Automatique contenant la date et l'heure de l'envoie
- Réponse automatique thunderbird - Guide
- Windows live mail - Télécharger - Mail
- Publipostage mail - Accueil - Word
- Réponse automatique gmail - Guide
- Changement d'heure - Guide
2 réponses
bonjour,
essaie ca :
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "***@***"
objEmail.To = "***@***"
objEmail.Subject = "Sujet: Test"
objEmail.Textbody = "Test" & Date & " " & Time
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =_
"bla.bla.com"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
essaie ca :
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "***@***"
objEmail.To = "***@***"
objEmail.Subject = "Sujet: Test"
objEmail.Textbody = "Test" & Date & " " & Time
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =_
"bla.bla.com"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
