IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

VBA - Impossible de reconnaître un ou plusieurs noms [OL-2013]


Sujet :

VBA Outlook

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    mars 2009
    Messages
    27
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : mars 2009
    Messages : 27
    Points : 38
    Points
    38
    Par défaut 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 : 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

  2. #2
    Membre du Club
    Homme Profil pro
    Inscrit en
    août 2012
    Messages
    125
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : août 2012
    Messages : 125
    Points : 65
    Points
    65
    Par défaut Même problème
    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

  3. #3
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    4 081
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 4 081
    Points : 7 033
    Points
    7 033
    Billets dans le blog
    20
    Par défaut
    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
    soit il faut faire un resolveall avant l'envoi



  4. #4
    Nouveau membre du Club
    Profil pro
    Inscrit en
    mars 2009
    Messages
    27
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : mars 2009
    Messages : 27
    Points : 38
    Points
    38
    Par défaut
    Allo j'ai résolu mon problème avec le ReplyAll

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set MessageAR = objMail.ReplyAll

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [SP-2007] Impossible de reconnaître l'espace de noms XML de ce composant WebPart
    Par Ricardo_Tubbs dans le forum SharePoint
    Réponses: 2
    Dernier message: 03/01/2011, 10h32
  2. [tomcat] plusieurs noms de serveur
    Par amel666 dans le forum Tomcat et TomEE
    Réponses: 2
    Dernier message: 07/03/2006, 12h20
  3. [VBA] Executer une fonction en passant son nom en argument
    Par David Guyon dans le forum Access
    Réponses: 4
    Dernier message: 05/10/2005, 19h56
  4. [excel vba]case à cocher dans excel pour plusieurs lignes
    Par fcoisb dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 02/03/2005, 11h23
  5. [VBA-E] Impression page paire sur plusieurs onglets
    Par liop49 dans le forum Macros et VBA Excel
    Réponses: 23
    Dernier message: 17/02/2005, 15h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo