访问Outlook默认文件夹

GetDefaultFoldder(olFolderInbox)

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