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.
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:
- Auto CC/BCC by rules when sending email; Auto Forward Multiple Emails by custom; Auto Reply without exchange server, and more automatic features...
- BCC Warning - show message when you try to reply all if your mail address is in the BCC list; Remind When Missing Attachments, and more remind features...
- Reply (All) With All Attachments in the mail conversation; Reply Many Emails in seconds; Auto Add Greeting when reply; Add Date into subject...
- Attachment Tools: Manage All Attachments in All Mails, Auto Detach, Compress All, Rename All, Save All... Quick Report, Count Selected Mails...
- Powerful Junk Emails by custom; Remove Duplicate Mails and Contacts... Enable you to do smarter, faster and better in Outlook.