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