1 pièce(s) jointe(s)
Catégories dans des boîtes/comptes multiples dans Outlook
Bonjour à tous,
J'ai un problème :(
Lire la liste des catégories dans Outlook n'est pas compliqué…
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| Private Sub ListCategoryIDs()
Dim objNameSpace As NameSpace
Dim objCategory as Category
Set objNameSpace = Application.GetNamespace("MAPI")
For Each objCategory In objNameSpace.Categories
MsgBox objCategory.Name
Next
End Sub |
Mais comment lire la liste d'une boite autre ?
<objRecipient.Categories> ne fonctionne pas et donne les catégories de la boîte issue de <objNameSpace.Categories>
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Private Sub ListCategoryIDs()
Dim objNameSpace As NameSpace
Dim objRecipient as Recipient
Dim objCategory as Category
Set objNameSpace = Application.GetNamespace("MAPI")
Set objRecipient = objNameSpace.CreateRecipient("Autre@boite.com")
For Each objCategory In ??????????.Categories ' <objRecipient.Categories> ne marche pas et donne les catégories de la boîte issue de <objNameSpace.Categories>
MsgBox objCategory.Name
Next
End Sub |
Pièce jointe 485345
Merci pour votre aide.