L'utilisation de Visual Basic à sous-dossier d'accès dans la boîte de réception?

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

J'ai utilisé le code ci-dessus pour accéder aux perspectives principale boîte de réception, mais comment accéder aux dossiers dans la boîte de réception et à l'aide de courrier vba!

Answer 1

Cest très proche:)

Pour obtenir tous les articles de courrier dans un dossier appelé « temp » dans la boîte de réception essayer cette

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

J'ai trouvé qu'il y avait des éléments dans ma boîte de réception qui ne sont pas des articles de courrier à l'origine du script pour arrêter. Ce petit changement a permis au script de continuer à courir si quelque chose comme une réunion, invite se trouve:

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

Merci pour votre réponse! m'a beaucoup aidé!

(Mes excuses - voulais faire un commentaire, mais ne pas assez rep ..)

Answer 3

Et pour forer plus bas, continuer à ajouter des lignes Set olFolder:

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

Obtient à \ Boîte de réception de la temp \ temp2 \ temp3 \