Outlook-VBA用于打开所选任务列表项的包含文件夹

在Outlook 2013中，我使用“任务列表”侧栏：

• 从“ 邮件”屏幕中，选择“ 查看”功能区选项卡。
• 在“ 布局”功能区组中，单击“ 待办事项栏”下拉列表，然后选择“ 任务”。

我“标记”的邮件项目在此列表中可见。

如果有人可以提供VBA代码来打开所选任务项的包含文件夹，我将不胜感激。

我已经尝试了以下代码（源代码），但遗憾的是它有一个错误。

Public Sub GetItemsFolderPath()
    Dim obj As Object
    Dim F As Outlook.MAPIFolder
    Dim Msg$
    Set obj = Application.ActiveWindow
    If TypeOf obj Is Outlook.Inspector Then
        Set obj = obj.CurrentItem
    Else
        Set obj = obj.Selection(1)
    End If
    Set F = obj.Parent ' <---------- DEBUG INDICATES THE ERROR IS HERE
    Msg = "The path is: " & F.FolderPath & vbCrLf
    Msg = Msg & "Switch to the folder?"
    If MsgBox(Msg, vbYesNo) = vbYes Then
        Set Application.ActiveExplorer.CurrentFolder = F
    End If
End Sub

编辑

当您尝试运行宏时，只在查看与标记项目所在位置不同的顶级文件夹时才会出现此错误。

• 例如，如果您当前正在Exchange帐户中的某个位置进行浏览，并且标记的邮件项恰好位于Exchange帐户中的某个子文件夹中，则宏将正常工作。
• 同样，如果您正在探索PST数据文件中的某个位置，并且标记的邮件项恰好位于该PST数据文件中的某个子文件夹中，则该宏将正常工作。
• 但是，如果您当前正在探索一个PST数据文件，并且您标记的项目不在该PST内，而是在其他地方，例如不同的PST或您的Exchange帐户，则该宏将出现错误。

这是MAPI_E_INVALID_ENTRYID错误。它可能表示您的PST文件已损坏。尝试运行scanpst.exe实用程序来修复它，然后尝试再次运行脚本。

此外，您可能想尝试为另一个PST文件中的项目运行脚本。

编辑：有时会发生Outlook 配置文件损坏并以奇怪的方式运行。您可以尝试创建新的Outlook配置文件。