如何找到特定的文件夹？

Question

我有一个 read/get 特定文件夹中电子邮件项目的子项。

找不到文件夹。

Sub HowManyEmails()

    Dim objOutlook As Object, objnSpace As Object, objFolder As MAPIFolder
    Dim EmailCount As Integer
    Set objOutlook = CreateObject("Outlook.Application")
    Set objnSpace = objOutlook.GetNamespace("MAPI")

    On Error Resume Next
    Set objFolder = objnSpace.folders("#MemoScan")
    If Err.Number <> 0 Then
        Err.Clear
        MsgBox "No such folder."
        Exit Sub
    End If

    EmailCount = objFolder.Items.Count

    MsgBox "Number of emails in the folder: " & EmailCount, , "email count"

    Set objFolder = Nothing
    Set objnSpace = Nothing
    Set objOutlook = Nothing
End Sub

它 returns 内置消息“没有这样的文件夹”。

我的文件夹结构：

我怎样才能得到那个文件夹？

Answer 1

由于以下 link 解决了这个问题： Get MAPI Folder in Outlook from Folder Path。

通过右键单击文件夹，我可以看到实际位置在 William 上，而不是直接在文件夹上。所以正确的代码是：

Set objFolder = objnSpace.folders("William").folders("#MemoScan")

如何找到特定的文件夹？

How to find a specific folder?

directory

outlook

vba