Mail Automatique contenant la date et l'heure de l'envoie
Résolu/Fermé
A voir également:
- Mail Automatique contenant la date et l'heure de l'envoie
- Yahoo mail - Accueil - Mail
- Publipostage mail - Accueil - Word
- Message automatique thunderbird - Guide
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise ✓ - Forum Sony
2 réponses
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
25 avril 2016 à 13:39
25 avril 2016 à 13:39
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
Merci beaucoup. Cela fonctionne bien :)
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
25 avril 2016 à 15:10
25 avril 2016 à 15:10
tu peux mettre le sujet en résolu stp.