Forcer envoie email - script vbs
Bonjour à tous et bonne année,
Je viens vers vous car je maitrise très peu le langage vbscript et j'ai besoin d'un coup de pouce.
J'ai rédigé un script en vbs lié à une tâche planifiée pour envoyer un email automatique tous les mois.
Mon script comporte un grand nombre d'adresses emails et il arrive que certaines adresses n'existent plus le mois suivant ce qui bloque l'envoi de l'email à tous les autres utilisateurs.
ci-dessous mon script:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Set objEmail=CreateObject("CDO.Message")
ObjEmail.From = "********" 'expéditeur
ObjEmail.To = "******" 'destinataires
ObjEmail.CC = "******" ' destinataires en copie
ObjEmail.Subject = "Bla Bla Bla" 'sujet du message
ObjEmail.TextBody = "Bla Bla Bla Bla" ' Message format texte
ObjEmail.Fields.Item("urn:schemas:mailheader:importance").Value = "high" 'affiche le message en urgent
ObjEmail.Fields.Item("urn:schemas:mailheader:priority").Value = 1 'affiche le message en urgent
ObjEmail.Fields.Update 'mis à jour des paramètres avant envoi
With ObjEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' MAIL_SENDUSING
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "X.X.X.X" 'ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = xx 'port serveur smtp
.Update
End With
ObjEmail.Send |
Il fonctionne très bien même si il est certainement lourd et mal codé pour des développeurs avisés (je ne code jamais en vbs).
Existe t'il une fonction ou autre pour forcer l'exécution du script même si une ou plusieurs adresses de destinataires ne fonctionnent plus/n'existent plus?
Merci pour votre aide,
Cordialement,
Yoann
