Outlook でフォルダーを名前で検索するにはどうすればよいですか？

たとえば、Outlook に多数のメールフォルダーを作成している場合、特定の個人用フォルダーを開こうとすると、そのフォルダーが表示されるまで複数の階層を順に展開しなければなりません。一つひとつ手作業でフォルダーを展開するのは、正直面倒ですよね。でも、実はフォルダー名さえ覚えていれば、もっと簡単に目的のフォルダーにアクセスできます。このチュートリアルでは、フォルダーを一つずつ展開することなく、名前で直接検索して開く方法をご紹介します。

VBA コードでOutlook のフォルダーを名前で検索する

Kutools for Outlook でOutlook のアカウント全体から名前でフォルダーを検索する

---

VBA コードでOutlook のフォルダーを名前で検索する

次の VBA コードを使えば、フォルダーを名前で簡単に検索できます。

注意：この VBA コードを使用するには、フォルダ名を必ず覚えておいてください。

1。キーボードでAlt+F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2。次に、Project1 > Microsoft Outlook Object > ThisOutlookSessionをダブルクリックして、Project1 – ThisOutlookSessionウィンドウを開きます。スクリーンショットをご覧ください：

3。次の VBA コードを「Project1 – ThisOutlookSession」ウィンドウにコピー＆ペーストしてください。

VBA：フォルダーを名前で検索する

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4。次に、キーボードでF5キーを押して、VBA コードを実行します。

5。「マクロ」ダイアログボックスで、実行ボタンをクリックします。

6。表示された「フォルダー検索」ダイアログボックスのテキストボックスにフォルダ名を入力して、OKボタンをクリックしてください。スクリーンショットをご覧ください：

7。次に、「Microsoft Outlook」ダイアログボックスが表示され、目的のフォルダーのパスが示されます。はいボタンをクリックしてください。

8。これで、指定したメールフォルダーがすぐに開きます。

注意：この VBA コードは、Outlook 2007、2010、および2013 でご利用いただけます。

---

Kutools for Outlook でOutlook のアカウント全体から名前でフォルダーを検索する

VBA に不慣れな方は、Kutools for Outlookの移動ユーティリティをぜひお試しください。この機能を使えば、フォルダーを名前や特定の文字で検索して、直接そのフォルダーに移動できます！

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

1。KUTOOLS PLUS > フォルダー > 移動をクリックします。

2。「移動」ダイアログで、検索バーにフォルダ名や特定の文字を入力すると、関連するフォルダーが一覧表示されます。

3。移動して開きたいフォルダをダブルクリックすると、そのフォルダーが開きます。

  デモ