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」ウィンドウで「ツール」＞「参照設定」をクリックし、「参照設定－Project1」ダイアログボックスが表示されたら、「利用可能な参照設定」リストから「Microsoft Outlook オブジェクトライブラリ」にチェックを入れてください。下図をご参照ください。

4．次に、「OK」をクリックしてダイアログボックスを閉じ、F5 キーを押してこのコードを実行すると、指定したOutlook フォルダーが即座に開きます。