OutlookVBAを介してすべての未返信の電子メールの検索フォルダーをすばやく作成する方法

Outlookソリューション 2025 年 9 月 29 日

Outlookで未返信の電子メールをより簡単に確認するために、そのような電子メールの検索フォルダーを作成できます。ここで、この記事では、OutlookVBAでそれを取得する方法を紹介します。

前回の記事「Outlookで返信していない重要なメールを自動強調表示する方法」では、返信していない重要なメールを特定の色で表示する方法を学ぶことができます。ただし、すべてのメールフォルダをXNUMXつずつ確認する必要があるため、まだ面倒だと感じるかもしれません。したがって、このようなすべての電子メールを検索フォルダーに直接収集する必要があります。以下では、VBAを使用してこのような検索フォルダーをすばやく作成する方法を説明します。

すべての未返信メールの検索フォルダを作成します

まず最初に、Outlookアプリケーションを起動してください。
次に、「Alt + F11」キーを押してVBAエディターにアクセスします。
次に、次のVBAコードを使用されていないモジュールにコピーします。

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim strScope As String
    Dim strRepliedProperty As String
    Dim strFilter As String
    Dim objSearch As Outlook.Search
 
    'Specify the folders to be searched
    'Here we use Inbox folder for an example
    strScope = "'" & Application.Session.GetDefaultFolder(olFolderInbox).FolderPath & "'"
 
    'Search filter
    strRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
    strFilter = Chr(34) & strRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & strRepliedProperty & Chr(34) & " <> 103"
    Set objSearch = Outlook.Application.AdvancedSearch(Scope:=strScope, Filter:=strFilter, SearchSubFolders:=True, Tag:="SearchFolder")
 
    'Save the search folder
    objSearch.Save ("Not Replied Emails")
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Search Folder"
End Sub

続いて、このサブルーチンにカーソルを置きます。
その後、「F5」キーボタンをクリックしてこのマクロをトリガーします。
マクロが終了すると、次の図のようなメッセージが表示されます。
最後に、「未返信メール」という新しい検索フォルダが表示されます。このフォルダには、受信トレイ内のすべての未返信メールが含まれています。

検索フォルダの検索範囲を変更する

私のVBAコードでは、この検索フォルダーはデフォルトの受信トレイフォルダーのみを検索します。検索範囲を変更する場合は、以下の手順に従ってください。

まず、検索フォルダを右クリックします。
次に、コンテキストメニューから[この検索フォルダをカスタマイズ]を選択します。
次に、ポップアップの「カスタム検索フォルダ」ダイアログで、「参照」ボタンをクリックします。
その後、「フォルダの選択」の新しいダイアログボックスが表示されます。その中で、返信していないメールを検索するフォルダを選択できます。
最後に、選択後、いくつかの「OK」をクリックするだけで変更を適用できます。

頻繁なOutlookエラーを排除する

送受信の失敗に関連するエラー、アクセスできないOutlook PSTファイルに関連するエラーなど、Outlookでエラーメッセージを受信するのはよくあることです。したがって、これらのエラーを迅速かつ効果的に処理するには、を見つけて利用する方法を学ぶ必要があります。受信トレイ修復ツール。さらに、組み込みツールに障害が発生した場合は、次のような別の優れた外部ユーティリティを入手することをお勧めします。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL Server 修理と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com