VBA - Impossible de reconnaître un ou plusieurs noms

**BrunetteCP** · 18/07/2018, 17h14

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

**Henri1830** · 26/12/2020, 19h58

Bonjour,

J'ai aussi réalisé une routine qui envoie des mails et au moment de l'envoi, j'ai exactement le même message que vous.
Avez-vous trouvé une solution ? Et si oui, quelle solution avez-vous appliqué ?

Merci d'avance pour votre réponse.

Bien à vous

Henri

**Oliv-** · 28/12/2020, 14h33

Bonjour,
Soit ils faut copier lesdestinataires ( recipients) en les parcourant

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
 For Each Destinataire In msg.Recipients
        'MsgBox destinataire
        'If Destinataire.Type <> olTo Then
        Set myRecipient = LaReponse.Recipients.add(Destinataire.Address)
        On Error Resume Next
        myRecipient.Type = Destinataire.Type
        myRecipient.Resolve
        On Error GoTo 0
        If Not myRecipient.Resolved Then
            myRecipient.Delete
            Set myRecipient = LaReponse.Recipients.add(Destinataire.Name)
            myRecipient.Type = Destinataire.Type
            myRecipient.Resolve
        End If
 
        'End If
 
    Next Destinataire