Outlookで名前でフォルダを見つける方法は？

たとえば、Outlookで多数の電子メールフォルダを作成した場合、指定した個人用フォルダを開く必要がある場合、その指定したフォルダが表示されるまで複数のフォルダを展開する必要があります。 指定した個人用フォルダを開くだけで、複数のフォルダをXNUMXつずつ展開するのは面倒です。 実は、フォルダ名を覚えていれば、すべてが簡単になります。 このチュートリアルでは、フォルダーをXNUMXつずつ展開してフォルダーを検索するのではなく、Outlookで名前でフォルダーを検索する方法を紹介します。

VBAコードを使用してOutlookで名前でフォルダを検索する

Outlook用KutoolsによってOutlookのアカウント間で名前でフォルダを検索

VBAコードを使用してOutlookで名前でフォルダを検索する

次のVBAコードを使用すると、指定したフォルダーをその名前で簡単に見つけることができます。

Note：このVBAコードを使用するには、フォルダ名を覚えておく必要があります。

1。 プレス 他の + F11 キーボードのキーを押して アプリケーション向け Microsoft Visual Basic 窓。

2.次に、 Project1 > MicrosoftOutlookオブジェクト > このOutlookSession を開く 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.指定したメールフォルダがすぐに開きます。

Note：このVBAコードは、Outlook 2007、2010、および2013に適用できます。

Outlook用KutoolsによってOutlookのアカウント間で名前でフォルダを検索

VBAが苦手な方は、ぜひお試しください Kutools for Outlook's へ行きます 名前または特定の文字でフォルダを検索および検索し、そのフォルダに直接移動できるユーティリティ。

無料インストール Outlook用Kutoolsを実行し、次の手順を実行します。

1。 クリック クツールズプラス > へ行きます.

2。 の中に へ行きます ダイアログで、検索バーにフォルダ名または特定の文字を入力すると、相対フォルダが一覧表示されます。

3.移動したいフォルダ名をダブルクリックして開くと、フォルダが開きます。

  デモ

---

最高のオフィス生産性向上ツール

Kutools for Outlook - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロ: バッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

続きを読む       無料ダウンロード      購入