Outlookで名前でフォルダーを検索するにはどうすればよいですか？
例えば、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. 開きたいフォルダ名をダブルクリックすると、そのフォルダが開きます。
デモ
最高のオフィス生産性ツール
速報: Kutools for Outlook が無料版をリリース！
新しい Kutools for Outlook の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます！今すぐダウンロードをクリック！
🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。
📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...
📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...
👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除...
Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう！
