Click here to Skip to main content
15,888,202 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
Hello,

I want to select a specific Outlook (2010) folder, lets say for example an organization like that in my Outlook :
Dossiers personnels\Inbox
Dossiers personnels\SentItems

and some other folders like :

Dossiers personnels\Privé
Dossiers personnels\Privé\michele@gmail.com
Dossiers personnels\Privé\michele@laposte.net
Dossiers personnels\Privé\hugo@orange.fr
Dossiers personnels\Privé\virginie@wanadoo.fr
Dossiers personnels\Privé\rachel@wanadoo.fr

I've declared :
VB
Imports Microsoft.Office.Interop
...

Dim app As Outlook.Application
Dim ns As Outlook.NameSpace
Dim siFolder As Outlook.Folder = Nothing

app = New Outlook.Application()
ns = app.GetNamespace("MAPI")
Dim olFolders As Outlook.Folders = ns.Folders


I have no problem to select INBOX, with :
VB
siFolder = CType(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox), Outlook.Folder)


and SENTITEMS Folders, with :
VB
siFolder = CType(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail), Outlook.Folder)



But I don't know how to select the folder "Privé", then "Privé\michele@gmail.com", and so on ...


Thanks for your help.
Posted
Updated 24-Nov-11 20:33pm
v2

1 solution

Hi,
try this:

VB
siFolder = CType(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox).Parent.folders("Privé"), Outlook.Folder)
 
Share this answer
 
Comments
contact97438 25-Nov-11 4:31am    
@Raimis9 : Thanks, it works fine !

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900