Outlookで返信されていないすべての電子メールの検索フォルダーを作成するにはどうすればよいですか?
Outlookで未返信のメールを確認したい場合は、XNUMXつずつ検索するのに時間がかかります。 この記事では、すべての未返信メッセージの検索フォルダーの作成について説明します。
OutlookでVBAコードを使用して、返信されていないすべての電子メールの検索フォルダーを作成します
OutlookでVBAコードを使用して、返信されていないすべての電子メールの検索フォルダーを作成します
次のVBAコードは、すべての未返信の電子メールを配置する検索フォルダーを作成するのに役立ちます。次のようにしてください。
1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。
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 このコードを実行するためのキーを押すと、次のスクリーンショットのようにプロンプトボックスが表示されます。
4に設定します。 OK をクリックします。 OK ボタン、今、あなたは得るでしょう 返信されていないメール フォルダの下に 検索フォルダ Outlookのアカウントごとに、返信されていないすべての電子メールがここに表示されます。スクリーンショットを参照してください。
Kutools for Outlook-100の高度な機能をOutlookにもたらし、作業をはるかに簡単にします!
- 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
- BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
- メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
- 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
- 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。

