Como criar uma pasta de pesquisa para todos os e-mails não respondidos no Outlook?

Se pretender verificar os e-mails não respondidos no seu Outlook, procurá-los um a um será uma tarefa demorada. Neste artigo, explico como criar uma pasta de pesquisa que reúne todas as mensagens não respondidas.

Criar uma pasta de pesquisa para todos os e-mails não respondidos no Outlook com código VBA

---

Criar uma pasta de pesquisa para todos os e-mails não respondidos no Outlook com código VBA

O código VBA seguinte permite-lhe criar uma pasta de pesquisa que reúne automaticamente todos os e-mails não respondidos. Siga estes passos:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.

Código VBA: Criar uma pasta de pesquisa para e-mails não respondidos:

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. Em seguida, prima a tecla F5 para executar este código e aparecerá uma caixa de diálogo, conforme ilustrado na imagem seguinte:

4. Clique no botão OK e obterá uma pasta intitulada E-mails Não Respondidos sob as Pastas de Pesquisa, para cada conta no seu Outlook, onde serão apresentados todos os e-mails não respondidos. Veja a imagem: