メインコンテンツへスキップ

Outlookで未返信のすべてのメールの検索フォルダーを作成するにはどうすればよいですか?

Author: Xiaoyang Last Modified: 2025-05-23

Outlookで未返信のメールを確認したい場合、1通ずつ探すのは非常に時間がかかります。この記事では、すべての未返信メッセージ用に検索フォルダーを作成する方法について説明します。

VBAコードを使用してOutlookで未返信のすべてのメールの検索フォルダーを作成する


VBAコードを使用してOutlookで未返信のすべてのメールの検索フォルダーを作成する

次のVBAコードは、すべての未返信メールを格納する検索フォルダーを作成するのに役立ちます。以下の手順を行ってください:

1. ALT + F11 キーを押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、次のマクロをモジュールウィンドウに貼り付けます。

VBAコード: 未返信メールのための検索フォルダーを作成する:

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim xSearch As Outlook.Search
    Dim xScope As String, xFilter As String
    Dim xRepliedProperty As String
    Dim xFolder As Folder, xSubFolder As Folder
    On Error Resume Next
    xScope = ""
    For Each xFolder In Outlook.Application.Session.Folders
        Set xSubFolder = xFolder.Folders("Inbox")
        xScope = "'" + xSubFolder.FolderPath + "'"
        xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
        xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
        Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
        xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
        Set xSearch = Nothing
        Set xSubFolder = Nothing
    Next
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. 次に、 F5キーを押してこのコードを実行すると、次のスクリーンショットに示すようにプロンプトボックスが表示されます:

doc search folder for unreplied 1

4. 「OK」ボタンをクリックすると、Outlook内の各アカウントの「検索フォルダー」に「未返信メール」フォルダーが作成され、すべての未返信メールがここに表示されます。スクリーンショットをご覧ください:

doc search folder for unreplied 2

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

速報: Kutools for Outlook が無料版をリリース!

新しい Kutools for Outlook の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます!今すぐダウンロードをクリック!

🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。

📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...

📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...

📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...

🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...

👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...

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

Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう!

kutools for outlook features1 kutools for outlook features2