訪問Outlook默認文件夾

Question

我工作在一個Outlook VBA應用程序，我需要訪問我的收件箱，但我似乎遇到了一些麻煩。我正在使用GetDefaultFoldder(olFolderInbox)方法，但是，我有幾個電子郵件地址設置，並沒有出現在我的個人文件夾的收件箱中。

所以我的問題是，這個默認文件夾定義在哪裏？我如何知道哪個收件箱是默認收件箱？我知道也有GetFolderFromID方法，如果我要使用這個，

如何找到文件夾ID以指向它？

這是我使用的代碼。這是來自Timothy Chen Allen博客的教程，如Timothy's Blog所示。代碼：

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 

Answer 1

您可以使用Folders屬性和字符串多個文件夾屬性一起獲取名稱空間中的任何文件夾。一些實例中

收件箱（同GetDefaultFolder（olInbox））

ns.Folders("Personal Folders").Folders("Inbox") 

名爲備份甲收件箱的子目錄

ns.Folders("Personal Folders").Folders("Inbox").Folders("Backup") 

的OtherInbox在相同的水平的個人文件夾

ns.Folders("OtherInbox") 

GetDefaultFolder對於快速進入默認文件夾非常有用，但如果您需要某些東西除了默認值以外，只需使用NameSpace對象的Folders屬性向下導航樹即可。