I Need help with vb.net and outlook 2010

Hi,

I Need help with vb.net and outlook 2010

I have 3 outlook accounts (A,B,C) with outlook 2010


I tried to export all subject name from inbox to listbox by vb.net 2010, but I couldn't


I need a code to read all subject from all messages


read all subject message from Inbox for Account (A) and put it into listbox (A)
read all subject message from sent for Account (B) and put it into listbox (B)
read all subject message from Inbox for Account (C) and put it into listbox (C)




I found this code


but I have 3 accounts, how to change DefaultFolder to another account


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


app = New Application()
' Application.Session.GetDefaultFolder(18)


ns = app.Session




siFolder = CType(ns.GetDefaultFolder(Outlook.OlDefaultFolders .olFolderSentMail), Outlook.Folder)


items = siFolder.Items


MsgBox(items.Count)


For Each i In items


If TypeOf (i) Is Outlook.MailItem Then
Dim mailitem As Outlook.MailItem
mailitem = CType(i, Outlook.MailItem)
MsgBox(mailitem.Subject)
Else
MsgBox("not a mailitem")
End If
Next