すばらしいツールを使用して、フォルダ名でフォルダをすばやく検索して開きます

一般に、VBAコードを使用してフォルダー名でフォルダーを検索できます。 ほとんどのVBAコードは、現在のメールボックス内のフォルダーを検索し、最初に見つかったフォルダーのみを開くことができます。 Kutools for Outlookの[移動]機能を使用すると、フォルダー名でフォルダーを簡単に検索し、必要に応じて、見つかったフォルダーを任意に開くことができます。

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

1。 押す 他の + F11 キーを一緒に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2に設定します。 OK をクリックします。 インセット > モジュール、次に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 ボタン。 スクリーンショットを参照してください：

Note：このVBAはアスタリスクワイルドカードをサポートしています。 たとえば、次のように入力できます tes * 名前がで始まるすべてのフォルダを見つける TES.

5。 ダイアログボックスが表示され、見つかったフォルダのフォルダパスが表示されます。 見つかったフォルダを開く必要がある場合は、をクリックしてください 有り

そして今、以下のスクリーンショットが示すように、見つかったフォルダがナビゲーションペインで開いています。

Note：指定した名前で名前が付けられたフォルダーが複数ある場合、このVBAはXNUMXつのフォルダーのみを検索して開くことができます。

Kutools for Outlookがインストールされている場合は、その移動機能を適用して、特定のフォルダー名ですべてのフォルダーをすばやく検索し、見つかったフォルダーを簡単に開くことができます。

1に設定します。 OK をクリックします。 クツールズプラス > へ行きます この機能を有効にします。

2。 [移動]ダイアログで、指定したフォルダ名を を検索 ボックスで、検索結果からフォルダを選択し、をクリックします。 Ok

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