[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:
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:
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.
