Click here to Skip to main content
11,477,007 members (76,001 online)
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB.NET Outlook
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 :
 
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 :
siFolder = CType(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox), Outlook.Folder)

and SENTITEMS Folders, with :
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 24-Nov-11 21:29pm
Edited 24-Nov-11 21:33pm
Mehdi Gholam275.2K
v2

1 solution

Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

Hi,
try this:

siFolder = CType(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox).Parent.folders("Privé"), Outlook.Folder)
  Permalink  
Comments
contact97438 at 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)

  Print Answers RSS
0 Sergey Alexandrovich Kryukov 274
1 Richard Deeming 245
2 _duDE_ 165
3 Tomas Takac 150
4 Sascha Lefèvre 145
0 Sergey Alexandrovich Kryukov 7,675
1 OriginalGriff 7,246
2 Sascha Lefèvre 3,034
3 Maciej Los 2,491
4 Richard Deeming 2,305


Advertise | Privacy | Mobile
Web03 | 2.8.150520.1 | Last Updated 25 Nov 2011
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100