How to refrence the inbox of an additional mailbox in Outlook?

[bill]

I have this code to get to the default Outlook inbox but I would like to get
to the inbox of an additional added mailbox. Can this be done? Here is the
code I'm using below:
Dim objSession As MAPI.Session

Dim objInbox As MAPI.Folder

Dim objMessages As MAPI.Messages

Dim objMessage As MAPI.Message

Dim objEmbeddedMess age As MAPI.Message

Dim objNewMail As MAPI.Message

If cboFileType.Sel ectedIndex <-1 Then

ListBox1.Items. Clear()

'create session and logon

objSession = CreateObject("M API.Session")

'Use this for non exchange outlook - objSession.Logo n("Outlook")

objSession.Logo n("Default Outlook Profile") 'works on Halliburton COE

' objSession.Logo n()

'reference the messages in the inbox

objInbox = objSession.Inbo x

objMessages = objInbox.Messag es

--
Bill Bray

[aaron.kempf]

at www.freevbcode.com they have some more examples..

I just know that in one of these methods you can rewrite
objInbox = objSession.Inbo x

for each objInbox in objSession.Fold ers
Msgbox objInbox.Name
End if

It should be something like that; just iterate through the folders
until you see the folder name you want.. I am pretty sure that should
help, but YMMV

-Aaron

On Mar 8, 9:52*pm, "bill" <b...@bottlegar den.comwrote:

I have this code to get to the default Outlook inbox but I would like to get
to the inbox of an additional added mailbox. *Can this be done? *Here is the
code I'm using below:
Dim objSession As MAPI.Session

Dim objInbox As MAPI.Folder

Dim objMessages As MAPI.Messages

Dim objMessage As MAPI.Message

Dim objEmbeddedMess age As MAPI.Message

Dim objNewMail As MAPI.Message

If cboFileType.Sel ectedIndex <-1 Then

ListBox1.Items. Clear()

'create session and logon

objSession = CreateObject("M API.Session")

'Use this for non exchange outlook - objSession.Logo n("Outlook")

objSession.Logo n("Default Outlook Profile") 'works on Halliburton COE

' objSession.Logo n()

'reference the messages in the inbox

objInbox = objSession.Inbo x

objMessages = objInbox.Messag es

--
Bill Bray

[bill]

Thank you I will give that a shot!

<aa*********@gm ail.comwrote in message
news:f3******** *************** ***********@u10 g2000prn.google groups.com...
at www.freevbcode.com they have some more examples..

I just know that in one of these methods you can rewrite
objInbox = objSession.Inbo x

for each objInbox in objSession.Fold ers
Msgbox objInbox.Name
End if

It should be something like that; just iterate through the folders
until you see the folder name you want.. I am pretty sure that should
help, but YMMV

-Aaron

On Mar 8, 9:52 pm, "bill" <b...@bottlegar den.comwrote:

I have this code to get to the default Outlook inbox but I would like to
get
to the inbox of an additional added mailbox. Can this be done? Here is the
code I'm using below:
Dim objSession As MAPI.Session

Dim objInbox As MAPI.Folder

Dim objMessages As MAPI.Messages

Dim objMessage As MAPI.Message

Dim objEmbeddedMess age As MAPI.Message

Dim objNewMail As MAPI.Message

If cboFileType.Sel ectedIndex <-1 Then

ListBox1.Items. Clear()

'create session and logon

objSession = CreateObject("M API.Session")

'Use this for non exchange outlook - objSession.Logo n("Outlook")

objSession.Logo n("Default Outlook Profile") 'works on Halliburton COE

' objSession.Logo n()

'reference the messages in the inbox

objInbox = objSession.Inbo x

objMessages = objInbox.Messag es

--
Bill Bray