Obter referência para a checkbox de input adicional

Estou usando o Outlook 2007 – e tenho minha checkbox de correio principal: Tait, Mark

Também adicionei outra checkbox de correio ao meu perfil: Procurement, Request

Ambos aparecem como pastas de nível superior no Outlook:

Mailbox – Tait, Mark> – Histórico de conversas
-Itens deletados
– esboços
-Inbox
-Spam

Caixa de Correio – Procurement, Request
– História da Conversação
–Itens deletados
– Esboços
– checkbox de input
–Spam

Eu posso obter uma referência à minha checkbox de input padrão (Tait, Mark) usando:
Set Inbox = ns.GetDefaultFolder(olFolderInbox)

Como faço para obter uma referência à checkbox de input na checkbox de correio “Procurement, Request”?

Algo como isso deve fazer o truque

 Dim objNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Set objNS = GetNamespace("MAPI") Set objFolder = objNS.Folders("Procurement, Request") Set objFolder = objFolder.Folders("Inbox") 

Este link tem algum código útil para lidar com diferentes checkboxs de input – pode ser de interesse

 Dim olNS As NameSpace Dim InputFolder As Outlook.MAPIFolder Set olNS = Outlook.Application.GetNamespace("MAPI") ' Get reference to folder in users Mailbox for Input Set InputFolder = olNS.Folders("Procurement, Request").Folders("Inbox") ' all the emails in the shared inbox are represented by: InputFolder.Items 

Use Namespace.GetSharedDefaultFolder . Ele funcionará mesmo que a checkbox de correio não esteja aberta no perfil atual. Você ainda precisa ter o direito de abrir a checkbox de correio e acessar a pasta em questão, é claro:

 Set vNamespace = Application.GetNamespace("MAPI") set vRecipient = vNamespace.CreateRecipient("Procurement, Request") if vRecipient.Resolve Then set vFolder = vNamespace.GetSharedDefaultFolder(vRecipient, olFolderInbox) End If 

Se você precisar abrir a checkbox de correio do outro usuário (com todas as suas pastas), poderá usar o Redemption e seu método RDOSession .GetSharedMailbox:

  set Session = CreateObject("Redemption.RDOSession") Session.MAPIOBJECT = Application.Session.MAPIOBJECT set Store = Session.GetSharedMailbox("Procurement, Request") set vFolder = Store.GetDefaultFolder(olFolderInbox) MsgBox "The address of the mailbox owner: " & Store.Owner.Address