VBA - Impossible de reconnaître un ou plusieurs noms
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:
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 |