Incluir a coluna 'In Folder' nos resultados da pesquisa MSOutlook 10?

Question

Tenho tantas sub-subpastas que, quando faço uma pesquisa em todas as pastas no MS Outlook 10, não sei em qual sub-subpasta o e-mail está realmente localizado. Como faço para incluir permanentemente a coluna "Na pasta" nos meus resultados de pesquisa?

    

Answer 1

Você pode achar essa alternativa do VBA útil. Ele exibe o caminho da pasta e oferece a opção de mudar para a pasta.

link

Public Sub GetItemsFolderPath()
  Dim obj As Object
  Dim F As Outlook.MAPIFolder
  Dim Msg as String
  Set obj = Application.ActiveWindow
  If TypeOf obj Is Outlook.Inspector Then
    Set obj = obj.CurrentItem
  Else
    Set obj = obj.Selection(1)
  End If
  Set F = obj.Parent
  Msg = "The path is: " & F.FolderPath & vbCrLf
  Msg = Msg & "Switch to the folder?"
  If MsgBox(Msg, vbYesNo) = vbYes Then
    Set Application.ActiveExplorer.CurrentFolder = F
  End If
End Sub

Editor e ajuda do botão - link