excel - 在 Outlook 中使用收件箱以外的文件夹

Question

使用 Excel VBA 我可以从收件箱检索电子邮件正文和主题。

Set ObjO = CreateObject("Outlook.Application")
Set olNs = ObjO.GetNamespace("MAPI")
Set objFolder = olNs.GetDefaultFolder(6)

For Each item1 In objFolder.Items

    Dim sa, bc
    bc = item1.ReceivedTime
    sa = Format(item1.ReceivedTime, "dd-MM-yyyy")

    If item1.UnRead And item1.SenderEmailAddress = "harshahowrang@gmail.com" And sa = spa Then

此处的默认文件夹(6) 用于收件箱。

所有邮件都会进入 CRM 文件夹，因此我需要更改文件夹路径。

我尝试了其他号码，但不起作用，并且未指向 Outlook 邮箱中的 CRM 文件夹。

如何指向 CRM 文件夹？

Answer 1

只需使用

Set objfolder = olNs.GetDefaultFolder(olFolderInbox) _
                    .Parent.Folders("CRM")

完整示例

Option Explicit
Private Sub Example()
    Dim ObjO As Object
    Set ObjO = CreateObject("Outlook.Application")

    Dim olNs As Object
    Set olNs = ObjO.GetNamespace("MAPI")

    Dim objfolder As Object
    Set objfolder = olNs.GetDefaultFolder(olFolderInbox) _
                        .Parent.Folders("CRM")

    objfolder.Display

End Sub