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

  1. #1
    Candidat au Club Avatar de tmeg57
    Homme Profil pro
    DevOps
    Inscrit en
    juillet 2014
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : DevOps

    Informations forums :
    Inscription : juillet 2014
    Messages : 3
    Points : 2
    Points
    2
    Par défaut [vba outlook 360] Object required sur boucle For Each
    hello,

    petit problème de débutant

    j'ai cette procédure fonctionnelle (qui permet de récupérer les adresses mails d'une sélection d'email)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    Public Sub checkEmails2()
        Dim objMsg As Outlook.MailItem
        Dim recip As Outlook.Recipient
     
        For Each objMsg In Outlook.Application.ActiveExplorer.Selection
           For Each recip In objMsg.Recipients
                MsgBox recip.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x39FE001E")
            Next
        Next
    End Sub
    que je souhaite décomposer en deux fonctions distinctes :
    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
     
    Public Sub checkEmails()
        Dim objMsg As Outlook.MailItem
     
        For Each objMsg In Outlook.Application.ActiveExplorer.Selection
           GetEmails (objMsg)
        Next
    End Sub
     
    Public Sub GetEmails(mail As Outlook.MailItem)
        Dim recip As Outlook.Recipient
     
            For Each recip In mail.Recipients
                MsgBox recip.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x39FE001E")
            Next
    End Sub
    Cependant ça plante sur la ligne 6 avec le message " Run-time error '424': Object required "
    C'est sûrement une connerie assez simple, mais je n'arrive pas à cerner le problème, la variable objMsg est pourtant bien reconnu en objet de type Mailitem/mailitem (vérifié en mettant un watch dessus). J'ai également fait un peu de recherches de ce type d'erreur sur internet mais je n'ai rien trouvé qui m'aide à résoudre le problème.

    Merci d'avance pour votre support.

  2. #2
    Candidat au Club Avatar de tmeg57
    Homme Profil pro
    DevOps
    Inscrit en
    juillet 2014
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : DevOps

    Informations forums :
    Inscription : juillet 2014
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    Je ne pensais pas poser une telle colle et m'attendais à avoir rapidement des réponses. (Ou la section vba outlook n'est que très peu fréquentée ?)
    Je va essayer d'avoir de l'aide sur un autre forum.

  3. #3
    Membre expérimenté Avatar de Gado2600
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    mai 2013
    Messages
    866
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur Office VBA

    Informations forums :
    Inscription : mai 2013
    Messages : 866
    Points : 1 343
    Points
    1 343
    Par défaut
    Hello !

    Oui, je pense que c'est peu fréquenté et puis, ton avatar n'aide pas à attirer du monde

    Pour ton problème, c'est tout con, comme tu disais :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    GetEmails objMsg
    ' Ou
    call GetEmails(objMsg)
    Cordialement,
    Le sabre est une arme. Le kendo est un art de tuer. Quelques soient les belles paroles pour l'expliquer, telle est sa vérité.

  4. #4
    Candidat au Club Avatar de tmeg57
    Homme Profil pro
    DevOps
    Inscrit en
    juillet 2014
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : DevOps

    Informations forums :
    Inscription : juillet 2014
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    Merci beaucoup pour l'aide c'est bien ça ! J'ai presque honte d'être resté bloqué si longtemps juste pour ça. Vu la nature de l'erreur, je n'aurais jamais cherché si simple. A force de pratiquer trop de langages je pends les bases.

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

Discussions similaires

  1. boucle for each sur des fichiers
    Par Nako_lito dans le forum VBA Access
    Réponses: 2
    Dernier message: 02/08/2010, 14h21
  2. [XL-2003] Erreur 1004 sur boucle For each
    Par JonSnow dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 12/04/2010, 13h22
  3. [AC-2003] boucle For Each sur les donnees d'une table
    Par TheRRb dans le forum VBA Access
    Réponses: 6
    Dernier message: 20/07/2009, 12h15
  4. boucle for each sur un groupe
    Par LeXo dans le forum VB 6 et antérieur
    Réponses: 13
    Dernier message: 06/04/2007, 21h38
  5. [VBA-E]PB sur une boucle for each next
    Par rond24 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 31/07/2006, 15h47

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