如何在 Excel 中打开指定的 Outlook 文件夹？

您是否曾尝试从 Excel 文件中直接打开某个特定的 Outlook 文件夹，比如“收件箱”、“联系人”或其他任意文件夹？本文将为您详细介绍如何通过 Excel 工作表一键打开所需的 Outlook 文件夹。

使用 VBA 代码从 Excel 文件中打开特定的 Outlook 文件夹

---

使用 VBA 代码从 Excel 文件中打开特定的 Outlook 文件夹

以下 VBA 代码可帮助您从 Excel 工作表中打开特定的 Outlook 文件夹，请按以下步骤操作：

1. 在 Excel 中，按住 Alt + F11 键，即可打开“Microsoft Visual Basic for Applications”窗口。

2. 单击“插入”>“模块”，然后将以下宏粘贴到模块窗口中。

VBA 代码：从 Excel 文件中打开特定的 Outlook 文件夹：

Sub OpenOutlookFolder()
    Dim xOutlookApp As Outlook.Application
    Dim xNameSpace As Outlook.Namespace
    Dim xFolder As Outlook.Folder
    Dim xFolderType As OlDefaultFolders
    On Error Resume Next
    Set xOutlookApp = New Outlook.Application
    Set xNameSpace = xOutlookApp.Session
    Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
    xFolder.Display
    Set xFolder = Nothing
    Set xNameSpace = Nothing
    Set xOutlookApp = Nothing
    Exit Sub
End Sub

注意：在上述代码中，您可以将脚本“Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox）”中的“Inbox”替换为您想要打开的任意其他文件夹名称。

3. 随后，在“Microsoft Visual Basic for Applications”窗口中，依次点击“工具”>“引用”，在弹出的“引用 - Project 1”对话框中，从“可用引用”列表中勾选“Microsoft Outlook Object Library”选项。参见截图：

4. 随后，单击“确定”关闭对话框，并按下“F5”键运行代码，指定的 Outlook 文件夹将立即打开。