Obtener referencia a bandeja de entrada adicional
Estoy usando Outlook 2007 y tengo mi buzón principal: Tait, Mark.
También agregué otro buzón a mi perfil: Adquisiciones, Solicitud
Ambos aparecen como carpetas de nivel superior dentro de Outlook:
Buzón - Tait, Mark> -Historial de conversaciones
-Elementos eliminados
-Borradores
-Bandeja de entrada
-Correo electrónico no deseadoBuzón - Adquisiciones, Solicitudes
- Historial de conversaciones
- Elementos eliminados
- Borradores
- Bandeja de entrada
- Correo electrónico no deseado
Puedo obtener una referencia a mi bandeja de entrada predeterminada (Tait, Mark) usando:
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
¿Cómo obtengo una referencia a la Bandeja de entrada en el buzón "Adquisiciones, Solicitudes"?
Algo como esto debería funcionar
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 enlace tiene código útil para manejar diferentes bandejas de entrada ; puede ser de interés
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
