How to reference to a second mailbox in Outlook??

[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

 

[TomCologne]

Dim molApp As Outlook.Application, molNamespace As Outlook.NameSpace, molMAPI As Outlook.MAPIFolder

Set molApp = CreateObject("Outlook.Application")
Set molNamespace = molApp.GetNamespace("MAPI")

[COLOR=green][b]'' This works for any folder under "Personal Folders" as long
'' as folder names are provided:[/b][/color green]
Set molMAPI = molNamespace.Folders("Personal Folders").Folders("Inbox").Folders("SubFolderName")

[COLOR=green][b]'' This works only with OL Default Folders
'' and subfolders:[/b][/color green]
Set molMAPI = molNamespace.GetDefaultFolder(olFolderInbox).Folders("SubfolderName")

TomCologne