Wybierz podfoldery, jeśli istnieją - vb.net, Outlook, foldery

Chcę sprawdzić, czy istnieją podfoldery, a następnie wybrać te podfoldery.

Wybieram folder z getDefaultfolder, lubić:

" INBOX
siFolder = Ctype(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox), Outlook.Folder)
" SENT ITEMS
siFolder = Ctype(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail), Outlook.Folder)
etc ...

Where ...
app = New Outlook.Application()
ns = app.Session

Działa dobrze, ale nie widzę, czy istnieją podfoldery i nie wiem, jak je wybrać.

Odpowiedzi:

 Private Sub  CreateNewFolder()
Dim oApp As Outlook.Application = New Outlook.Application
Dim oNS As Outlook.NameSpace = oApp.GetNamespace("MAPI")
Dim InboxFolder As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
Dim customFolder As Outlook.MAPIFolder
Try
For i = 1 To InboxFolder.Folders.Count
If InboxFolder.Folders.Item(i).Name = "Vellaichamy" Then
Exit Sub
End If
Next
customFolder = InboxFolder.Folders.Add("Vellaichamy", Outlook _
.OlDefaultFolders.olFolderInbox)
InboxFolder.Folders("Vellaichamy").Display()
Catch ex As Exception
MessageBox.Show("The following error occurred: " & ex.Message)
Finally
" Clean up.
oApp = Nothing
oNS = Nothing
InboxFolder = Nothing
customFolder = Nothing
End Try
End Sub