如何從 Excel 開啟特定的 Outlook 資料夾？

Author: Xiaoyang Last Modified: 2025-05-12

您是否曾經嘗試過從 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」視窗中點擊「工具」>「參考」，然後在彈出的「參考-Project1」對話框中，從「可用的參考」列表框中勾選「Microsoft Outlook Object Library」選項。參見截圖：

check Microsoft Outlook Object Library option in References dialog box