如何從 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」視窗中，點選「工具」>「參考」，於彈出的「References-Project 1」對話方塊中，從「可用參考」清單勾選「Microsoft Outlook 物件庫」選項。請參閱截圖：

4. 接著，點選「確定」關閉對話方塊，再按下「F5」鍵執行此程式碼，即可立即開啟指定的 Outlook 資料夾。