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」ボタンをクリックします。

これで、指定されたフォルダ名を持つフォルダが見つかり、すぐに開かれます。