¿Usar Visual Basic para acceder a la subcarpeta en la bandeja de entrada?

Question

Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set myOlItems = objNS.GetDefaultFolder(olFolderInbox).Items

¡He usado el código anterior para acceder a la bandeja de entrada principal de Outlook, pero cómo acceder a las carpetas en la bandeja de entrada y es correo usando VBA!

Answer 1

Eso es muy cerca :)

Para obtener todos los elementos de correo en una carpeta llamada "temperia" debajo de la bandeja de entrada, pruebe esto

Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim msg As Outlook.MailItem

Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Set olFolder = olFolder.Folders("Temp")

For Each msg In olFolder.Items
    Debug.Print msg.Subject
Next

Answer 2

Descubrí que había algunos elementos en mi bandeja de entrada que no eran elementos de correo que causaban que el script se detuviera. Este pequeño cambio permitió que el guión siguiera funcionando si se encuentra algo así como una invitación de reunión:

Sub getmail()

Dim olApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder

'Dim msg As Outlook.MailItem
Dim InboxItem As Object

Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Set olFolder = olFolder.Folders("temp")

For Each InboxItem In olFolder.Items
    Debug.Print InboxItem.Subject
    Debug.Print InboxItem.EntryID
Next

End Sub

¡Gracias por tu respuesta! ¡me ayudo mucho!

(Mis disculpas, querían comentar, pero no tengo suficiente representante.)

Answer 3

Y para perforar más abajo, sigue agregando líneas Olfolder Set:

Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Set olFolder = olFolder.Folders("temp")
Set olFolder = olFolder.Folders("temp2")
Set olFolder = olFolder.Folders("temp3")

Te lleva a inBox temp temp2 tempp3