Discussion :

[tmeg57]

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.

[tmeg57]

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.

[Gado2600]

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,

[tmeg57]

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.