Bonjour,
J'ai créer une règle qui exécute un script lors de la réception d'un courriel. J'ai Outlook 2013. Cette macro (onglet "developpeur" - Microsoft visual Bacic pour application 7.1) envoi une réponse automatique au destinataire et les personnes en CC. Mais lorsque le courriel contient un ou des adresses courriel en copie conforme (CC). J'ai une erreur soit "Erreur d'exécution '-2147467259(800040005) Impossible de reconnaître un ou plusieurs noms" mon point arret est sur la linge MessageAr.Send. je suis allé dans "Fichier" => "Option" =>"Courrier" j'ai décoché "Vérifier les noms" puis j'ai redémarré Outlook. Pas de changement.
Quelqu'un a une idée du problème ????
Merci
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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 Sub ReponseAutomatique(Item As Outlook.MailItem) On Error GoTo eh Dim olNS As Outlook.NameSpace Dim MyMail As Outlook.MailItem Set olNS = Application.GetNamespace("MAPI") Set MyMail = olNS.GetItemFromID(Item.EntryID) Dim strID As String Dim TexteAR As String Dim objMail As Outlook.MailItem Dim MessageAR As Outlook.MailItem strID = Item.EntryID Set objMail = Application.Session.GetItemFromID(strID) TexteAR = "Ceci est un courriel automatisé <br>" Set MessageAR = objMail.Reply MessageAR.BodyFormat = olFormatHTML MessageAR.HTMLBody = "<html><body>" & TexteAR & "</body></html>" MessageAR.CC = objMail.CC MessageAR.Send Set objMail = Nothing Set MessageAR = Nothing Done: Exit Sub eh: Exit Sub End Sub
Partager