How to reference to a second Outlook mailbox in VBA

[tekvb1977]

I have the VB code that could reference to my default Inbox folder:

Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim myRecipient

Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)

I have another mailbox folder called secondMailBox. How Could I reference to the Inbox folder of my secondMailBox.

Any ideas/thoughts will be highly appreciated? Thanks

J

 

[JerryKlmns]

Well your secondMailBox folder resides within a default folder. Get that folder and then use the folders collections. From the help

Set myOlApp = CreateObject("Outlook.Application")
Set ns= myOlApp.GetNameSpace("MAPI")
Set InbxFolder = ns.GetDefaultFolder(olFolderInbox)
Set myInbxFolder = myFolder.Folders("secondMailBox")