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:
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).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager