Как получить полные пути к папкам результатов поиска с помощью Outlook VBA

Столкнувшись с множеством результатов поиска, вы можете надеяться определить пути к их расположенным папкам. В Outlook нет такой встроенной поддержки. Но вы все равно можете использовать коды VBA для достижения этой цели. Эта статья расскажет вам о сложных шагах.

В моей предыдущей статье — «4 способа определить расположенную папку результатов поиска», я ввел 4 способа получить найденную папку результатов поиска. Но все они могут просто предоставить имя расположенной папки. Так что будет беда с этими средствами. Например, если у вас есть несколько папок с одним и тем же именем, использование этих методов не позволит вам определить, в какой именно папке находятся результаты поиска. В этой ситуации вы должны надеяться получить путь к папке, а не просто имя папки. Поскольку в Outlook нет прямой функции для поддержки этого, вам придется вернуться к Outlook VBA. Вот подробные коды и шаги.

Получите полные пути к папкам результатов поиска

1. В первую очередь вы должны сtart Outlook и перейдите на вкладку «Разработчик».
2. Затем на ленте найдите и нажмите кнопку «Visual Basic», которая откроет окно редактора VBA.
3. Далее вы должны открыть новый модуль и скопировать следующие коды в окно модуля.

Sub GetFolderPathofSelectedItem() Dim olSel As Selection Dim olItem As Object Dim olFolder As Folder Dim olFPath As String Dim strMsg As String Dim Dataobj As DataObject Set olSel = Outlook.Application.ActiveExplorer.Selection Set olItem = olSel.Item(1) olFPath = olItem .Parent.FolderPath strMsg = "Выбранный элемент находится в папке " & olFPath & "." & vbCrLf & "Вы хотите скопировать путь к папке или переключиться на папку?" & vbCrLf & vbCrLf & "Щелкните" & Chr(34) & "Да" & Chr(34) & "для копирования" & vbCrLf & "Щелкните" & Chr(34) & "Нет" & Chr(34) & "для перейдите в папку" & vbCrLf & "Щелкните " & Chr(34) & "Отмена" & Chr(34) & ", чтобы закрыть диалоговое окно." nRes = MsgBox(strMsg, vbInformation + vbYesNoCancel, "Получить путь к папке элемента") Select Case nRes Case vbYes Set Dataobj = New MSForms.DataObject Dataobj.SetText olFPath Dataobj.PutInClipboard Case vbNo Set Outlook.Application.ActiveExplorer.CurrentFolder = olItem.Parent End Выберите End Sub

4. После этого можно выйти из текущего окна и нажать «Настройки макроса» на вкладке «Разработчик». Во всплывающем окне установите низкий уровень макроса.
5. Впоследствии вы должны добавить новый макрос на панель быстрого доступа.

• Во-первых, щелкните стрелку вниз на панели быстрого доступа и выберите «Дополнительные команды» в раскрывающемся списке.
• Затем в появившемся окне выполните следующие действия, показанные на скриншоте ниже:

6. Наконец, вы можете попробовать.

• Сначала выполните мгновенный поиск в области поиска «Все элементы».
• Затем выберите один результат поиска и нажмите кнопку макроса на панели быстрого доступа.
• Сразу же вы получите окно сообщения, которое будет содержать подробный путь к папке и три варианта действий, как на следующем изображении:
• Если вы нажмете «Да», вы скопируете путь к папке в буфер обмена. Если вы нажмете «Нет», вы сразу же перейдете в папку выбранного элемента. Если вы хотите остаться в списке результатов поиска, вы можете просто нажать «Отмена».

Верните свои драгоценные данные Outlook

Outlook уязвим, поэтому иногда вы можете, к сожалению, пострадать Повреждение данных Outlook PST. В этом случае вы больше не сможете получить доступ к своим данным PST. Вам потребуется использовать какой-нибудь выдающийся и проверенный инструмент для ремонта, такой как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт поврежден SQL Server данные МДФ и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com