У меня так много подпапок, что когда я выполняю поиск по всем папкам в MS Outlook 10, я не знаю, в какой подпапке фактически находится электронная почта. Как мне постоянно включить столбец «В папке» в мои результаты поиска?

1 ответ1

0

Вы можете найти эту альтернативу VBA полезной. Он отображает путь к папке и предлагает перейти к папке.

http://www.vboffice.net/sample.html?lang=en&mnu=2&smp=65&cmd=showitem

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

Справка для редактора и кнопки - http://www.slipstick.com/developer/how-to-use-outlooks-vba-editor/

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .