Você tem três opções:
-
Pesquise apenas na pasta selecionada. Personalize a visualização da pasta atual ou crie uma nova, clique em "Filtrar" e vá para a guia "SQL" em suas configurações. Defina a opção "Editar esses critérios diretamente" e digite o seguinte:
http://schemas.microsoft.com/mapi/proptag/0x1035001F = 'message-id-to-search'
isso restringirá a lista de mensagens a mensagens que tenham o ID da mensagem "id da mensagem a pesquisar".
-
Pesquisa avançada. Você precisará criar uma macro VBA para isso. Boas notícias de que são apenas duas funções longas. No editor Outlook VBA ( ALT + F11 ), abra o Projeto1 - > Objetos do Microsoft Outlook - > ThisOutlookSession e crie pelo menos dois Subs. Algo parecido com estes:
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) If SearchObject.Tag = "MessageId" Then Set Results = SearchObject.Results MsgBox "Message-ID search complete. " & Results.Count & " result(s) found." For i = 1 To Results.Count Results.Item(i).Display Next End If End Sub Public Sub SearchMessageId() Set Folder = Session.PickFolder If Not Folder Is Nothing Then r = MsgBox("Include subfolders?", vbYesNoCancel, "Search by Message-ID") If r <> vbCancel Then MessageId = InputBox("Message-ID:") If MessageId <> "" Then Application.AdvancedSearch "'" & Folder.FolderPath & "'", "http://schemas.microsoft.com/mapi/proptag/0x1035001F = '" & MessageId & "'", r = vbYes, "MessageId" End If End If End If End Sub
-
Use as regras do Outlook. Quero dizer "com palavras específicas no cabeçalho da mensagem". Desative-os e execute manualmente quando necessário para copiar mensagens encontradas ou marcá-las com um sinalizador e / ou categoria. Não se esqueça de editar o ID da mensagem para pesquisar antes de cada execução!