How to create a search folder for all un-replied emails in Outlook?
If you want to check the un-replied emails in your Outlook, to search them one by one will take much time. This article, I will talk about creating a search folder for all un-replied messages.
Create a search folder for all un-replied emails in Outlook with VBA code
Create a search folder for all un-replied emails in Outlook with VBA code
The following VBA code can help you to create a search folder where will put all un-replied emails, please do as this:
1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following macro in the Module Window.
VBA code: Create a search folder for un-replied emails:
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. Then, press F5 key to run this code, and a prompt box is popped out as following screenshot shown:
4. Click OK button, now, you will get a Not Replied Emails folder under the Search Folders for each account in your Outlook, and all un-replied emails are displayed here, see screenshot:
Best Office Productivity Tools
Kutools for Outlook - Over 100 Powerful Features to Supercharge Your Outlook
π§ Email Automation: Out of Office (Available for POP and IMAP) / Schedule Send Emails / Auto CC/BCC by Rules When Sending Email / Auto Forward (Advanced Rules) / Auto Add Greeting / Automatically Split Multi-Recipient Emails into Individual Messages ...
π¨ Email Management: Easily Recall Emails / Block Scam Emails by Subjects and Others / Delete Duplicate Emails / Advanced Search / Consolidate Folders ...
π Attachments Pro: Batch Save / Batch Detach / Batch Compress / Auto Save / Auto Detach / Auto Compress ...
π Interface Magic: πMore Pretty and Cool Emojis / Boost Your Outlook Productivity with Tabbed Views / Minimize Outlook Instead of Closing ...
π One-click Wonders: Reply All with Incoming Attachments / Anti-Phishing Emails / πShow Sender's Time Zone ...
π©πΌβπ€βπ©π» Contacts & Calendar: Batch Add Contacts From Selected Emails / Split a Contact Group to Individual Groups / Remove Birthday Reminders ...
Over 100 Features Await Your Exploration! Click Here to Discover More.