使用Excel VBA在多收件箱環境中搜索特定的Outlook收件箱

Question

我試過搜索一堆論壇，但一直未能找到我的問題的解決方案。我承認我對VBA對象的理解是有限的。我有一個創建Outlook對象的Excel VBA報表，然後掃描Outlook默認收件箱，直到找到未讀電子郵件。我已經使代碼在我的電腦上完美工作。但是，運行該軟件的計算機具有與Outlook關聯的兩（2）個不同的電子郵件地址/收件箱（一個是個人收件箱，另一個是羣組收件箱）。

我一直在使用搜索我的個人收件箱中的代碼是這樣的（它繼續以搜索未讀郵件，等...）：

Application.ScreenUpdating = False 
    Dim oOlAp As Object, oOlns As Object, oOlInb As Object 
    Dim oOlItm As Object, oOlAtch As Object 
    '~~> New File Name for the attachment 
    Dim NewFileName As String 
    NewFileName = "ActInv Export" 
    '~~> Get Outlook instance 
    Set oOlAp = GetObject(, "Outlook.application") 
    Set oOlns = oOlAp.GetNamespace("MAPI") 
    Set oOlInb = oOlns.GetDefaultFolder(olFolderInbox) 

然而，這僅僅指向默認收件箱（即個人電子郵件）。如何更改它以設置對象以搜索羣組電子郵件收件箱？

Answer 1

我無法確定（因爲我現在不在計算機上運行Outlook，因此無法使用它），但我認爲您的問題的答案可能包含在答案this question on building a tracker for a shared Outlook mailbox 。

我想關鍵在於行

Set f = olns.Folders("Mailbox - Name, Name")

平行但不同於你的發言

Set oOlInb = oOlns.GetDefaultFolder(olFolderInbox)

祝你好運！