Accéder à Outlook dossier par défaut

Je travaille sur les Perspectives d'application VBA et j'ai besoin d'accéder à ma boîte de réception, mais il me semble avoir quelques difficultés. Je suis l'aide de la GetDefaultFoldder(olFolderInbox) méthode, cependant, j'ai plusieurs adresses e-mail configurer et aucun d'entre eux dans mon dossier personnel de réception.

Donc ma question est, où est ce dossier par défaut défini? Comment puis-je savoir qui de la boîte de réception est celui par défaut? Je sais qu'il est aussi le GetFolderFromID méthode, si je devais l'utiliser,

comment puis-je trouver les dossiers ID pour elle?

Voici le code que j'utilise. C'est à partir d'un tutoriel sur Timothy Allen Chen blog, comme ici,Timothy's Blog. Le code:

Sub find_unread()
    On Error GoTo eh:
    Dim ns As Outlook.NameSpace
    Dim folder As MAPIFolder
    Dim item As Object
    Dim msg As MailItem

    Set ns = Session.Application.GetNamespace("MAPI")
    Set folder = ns.GetDefaultFolder(olFolderInbox)

    For Each item In folder.Items
        DoEvents
        If (item.Class = olMail) And (item.UnRead) Then
            Set msg = item
            Debug.Print msg.SenderEmailAddress
            msg.Display True
        End If
    Next

    MsgBox "All messages in Inbox are read", vbInformation, "All Read"
    Exit Sub
eh:
    MsgBox Err.Description, vbCritical, Err.Number
End Sub

OriginalL'auteur loveforvdubs | 2011-05-24