[VBA] accès à une sous-boîte Outllook

[F22Raptor]

Bonjour à tous,
J'accède par VBA à mon Inbox Outlook pour repérer si j'ai reçu un certain mail (filtré sur l'objet) :

Dim olNs As Namespace
Dim Fldr As MAPIFolder
Dim olMail As Variant

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox)


Ca marche parfaitement bien, SAUF si j'ai créé une sous-boîte de l'Inbox dans Outlook (par exemple "MiddleOffice", avec une règle qui justement envoie ce type de mail que je recherche dans cette sous-boîte), auquel cas ça ne marche pas, car la macro ne va regarder que dans l'Inbox (cf. le dernier SET en rouge)

Savez-vous comment spécifier une autre boîte ?

Merci ! 🙂

EDIT : je n'ai pas trouvé ma réponse ici olPublicFoldersAllPublicFolders. : Outlook NameSpace « Outlook « VBA / Excel / Access / Word mais site intéressant

 

[F22Raptor]

Re : [VBA] accès à une sous-boîte Outllook

j'ai trouvé ici : vba - Using visual basic to access subfolder in Inbox? - Stack Overflow

il fallait ajouter Set Fldr = Fldr.Folders("MiddleOffice") après le SET rouge

(joie)