Outlook で検索結果のフォルダーに素早く移動して開くには、どうすればよいですか？

Outlook では、特定のテキストに基づいてメールを検索する機能が利用できます。ただし、すべてのOutlook アイテムを対象に検索している場合、検索結果がどのフォルダーにあるかをすぐに特定することはできません。こうしたときに役立つ、検索結果のフォルダーに素早く移動して開くためのテクニックをいくつかご紹介します。

VBA を使って検索結果のフォルダーに移動して開く

右クリックを使って検索結果のフォルダーに移動して開く

---

VBA を使って検索結果のフォルダーに移動して開く

Outlook にはこの作業を処理する標準機能は備わっておらず、VBA コードを使用する場合を除きます。

VBA コードを使用する前に、検索結果にフォルダ名を表示しておく必要があります。

1。表示＞複数の列を追加をクリックします。

2。列の表示ダイアログで、利用可能な列を次から選択：ドロップダウンリストからすべてのメールフィールドを選択し、続いて利用可能な列リストからフォルダー内を選びます。

3。追加をクリックして、フォルダー内をこの順序で次の列を表示リストに追加し、続いて上へ移動ボタンをクリックして、フォルダー内をリストの一番上に移動します。

4。OKをクリックしてダイアログを閉じると、メール検索中にフォルダ名が検索結果に表示されるようになります。

5。次に、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開き、挿入 > 標準モジュールをクリックして新しいモジュールを作成します。

6。以下のコードをモジュールにコピー＆ペーストしてください。

VBA: 名前で指定されたOutlook フォルダを開く

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7。F5キーを押してコードを実行し、ダイアログに移動先のフォルダ名を入力します。

8。OKをクリックすると、フォルダーの場所を通知するダイアログが表示されます。はいをクリックすると、すぐにフォルダーに移動します。またはいいえをクリックしてキャンセルできます。

---

右クリックを使って検索結果のフォルダーに移動して開く

Kutools for Outlookをお使いの場合、右クリックメニューにフォルダーを開く機能が組み込まれているため、検索結果リスト内であっても、選択したメールのフォルダーに素早く移動できます。

Kutools for Outlook を無料でインストールし、以下の手順に従ってください。

検索後、フォルダーを開きたい結果を右クリックし、コンテキストメニューからフォルダーで開く（Kutools）を選択します。