Outlook 中的 VBA 找不到收件箱邮件

Question

我正在 Outlook 365 中运行 VBA 脚本。我选择了多封邮件。当我运行以下例程时：

Sub FindMessages()
    Dim objNS As Outlook.NameSpace
    Dim olFolder As Outlook.MAPIFolder
    
    Set objNS = GetNamespace("MAPI")
    Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
    Debug.Print "Items in Inbox: " & olFolder.Items.Count
    
    Debug.Print "Selected items: " & Application.ActiveExplorer.Selection.Count
    
 End Sub

输出是：

收件箱中的物品：0 已选商品： 6

我只是找不到在收件箱中获取消息的方法。这将是一个自动化例程，因此我无法手动选择消息。

我尝试了 .GetDefaultFolder(olFolderInbox) 的各种公式，但没有任何显示。

Answer 1

如果配置文件中有多个存储，并且默认消息存储中的收件箱文件夹不是您在 Outlook 中选择的收件箱文件夹，则可能会发生这种情况。 尝试换线

Set olFolder = objNS.GetDefaultFolder(olFolderInbox)

到

Set olFolder = Application.ActiveExplorer.CurrentFolder