Outlook でフォルダ名から該当フォルダー（完全なファイルパス）を検索するには、どうすればよいでしょうか？

Outlook で VBA を使ってフォルダ名からフォルダーを検索するには、以下の手順に従ってください。

1。「Alt」キーと「F11」キーを同時に押して、「Microsoft Visual Basic for Applications」ウィンドウを開きましょう。

2。「挿入」＞「モジュール」をクリックし、表示される新しいモジュールウィンドウに以下の VBA コードを貼り付けてください。

VBA：Outlook でフォルダ名によりフォルダーを検索およびフォルダーを開くする

Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean

Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True

Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders

  Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False

  sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName

  m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))

  Set oFolders = Application.Session.Folders
LoopFolders oFolders

  If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean

If SpeedUp = False Then DoEvents

  For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If

    If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub

3。「F5」キーを押すか「実行」ボタンをクリックして、この VBA をすぐに実行しましょう。

4。表示された「フォルダーの検索」ダイアログボックスに、検索したいフォルダー名を入力し、「OK」ボタンをクリックします。

注：この VBA はアスタリスク（*）ワイルドカードに対応しています。たとえば、「tes*」と入力すると、「tes」で始まるすべてのフォルダーが検索されます。

5。これでダイアログボックスが表示され、見つかったフォルダーのファイルパスが示されます。「はい」ボタンをクリックすると、そのフォルダーを開くことができます。

すると、見つかったフォルダーが以下のスクリーンショットのようにナビゲーションペインに表示されます。

注：指定した名前のフォルダーが複数存在する場合、この VBA ではそのうち1 つのフォルダーのみを検索・開くことができます。

「Kutools for Outlook」がインストール済みの場合は、その「移動」機能を使って、特定のフォルダ名ですばやくすべてのフォルダーを検索し、見つかった任意のフォルダーを簡単に開くこともできます。

1。「KUTOOLS PLUS」＞「移動」をクリックして、この機能を有効化してください。

2。「移動」ダイアログで、「検索」ボックスに目的のフォルダ名を入力し、検索結果からフォルダーを選択して、「OK」ボタンをクリックします。

これで、特定のフォルダ名を持つフォルダーをすぐに見つけて開くことができます。