je cherche à accéder à mes mails stockés dans des dossiers directement à la racine de mon espace personnel (gdx@toto.fr).
Grâce aux propriétés de l'objet Folder, je parviens à accéder à ces dossiers mais uniquement à partir d'un objet NameSpace.
Comme le montre le code suivant :
Dim myNameSpace As Outlook.NameSpace
Dim myDestFolder As Outlook.Folder
Dim mySourceFolder As Outlook.Folder
Dim myNewFolder As Outlook.Folder
Set myNameSpace = Application.GetNamespace("MAPI")
Set myDestFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Test")
Set mySourceFolder = myNameSpace.GetDefaultFolder(olFolderContacts).Folders.GetFirst
Dans ce cas j'accède au dossier dans ma boite de réception uniquement. Moi j'aimerais accéder au contenu de mes dossiers situé un cran plus haut.
En gros ce que j'aimerais faire c'est cela mais ce n'est pas possible :
Dim myNameSpace As Outlook.NameSpace
Dim myDestFolder As Outlook.Folder
Dim mySourceFolder As Outlook.Folder
Dim myNewFolder As Outlook.Folder
Set myNameSpace = Application.GetNamespace("MAPI")
Set mySourceFolder = myNameSpace.Folders.GetFirst
Je ne sais pas si je suis assez clair. J'ai pas mal de connaissances en vba sous Excel. Avec Outlook je débute et je suis perdu.
Si les "dossiers" dont tu parles sont d'autres boites mails,
tu dois pouvoir y accéder peut-être avec un truc du genre :
Dim myNameSpace As Outlook.NameSpace
Dim objMailbox As Outlook.Folder
Dim mySourceFolder As Outlook.Folder
Set myNameSpace = Application.GetNamespace("MAPI")
Set objMailbox = myNameSpace.Folders("NomDeTonAutreBoiteMail").Store.GetDefaultFolder(olFolderInbox)
Sinon, faudra nous montrer une capture d'écran de ton arborescence et nous indiquer quel élément tu essayes d'obtenir.
