如何从Excel打开特定的Outlook文件夹？

Author: Xiaoyang Last Modified: 2025-05-07

您是否曾经尝试过从Excel文件中打开特定的Outlook文件夹，例如“收件箱”文件夹、“联系人”文件夹或任何其他文件夹？在本文中，我将讨论如何从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”窗口中单击“工具” > “引用”，在弹出的“引用-Project1”对话框中，从“可用引用”列表框中勾选“Microsoft Outlook对象库”选项。参见截图：

check Microsoft Outlook Object Library option in References dialog box