Как выполнить пакетный поиск и замену определенных слов во всех именах папок Outlook

Иногда вы можете пакетно переименовывать несколько папок Outlook, находя и заменяя определенные слова в их именах. Эта статья научит вас, как быстро сделать это с помощью Outlook VBA.

Чтобы лучше организовать свою электронную почту, вы должны создать множество настраиваемых папок в Outlook. Столкнувшись с таким количеством настраиваемых папок, иногда по некоторым причинам, таким как требования начальника или ваши изменяющиеся предпочтения, вы можете захотеть переименовать эти папки. Мost времени, возможно, вы просто хотели бы заменить или удалить определенные слова в именах папок.

В общем, чтобы переименовать папку, вы можете просто нажать и щелкнуть по ней правой кнопкой мыши. Затем в контекстном меню выберите «Переименовать папку». Затем введите новое имя. Это удобно, если вы просто хотите переименовать две или три папки. Но если вы хотите найти и заменить определенные слова в именах всех папок Outlook, делать это вручную очень утомительно. Следовательно, мы порекомендуем вам еще один быстрый способ в следующем.

Пакетный поиск и замена определенных слов во всех именах папок Outlook

1. В самом начале сtarв вашей программе Outlook.
2. Затем нажмите клавиши «Alt + F11» в главном окне Outlook.
3. Затем в окне редактора Outlook VBA откройте модуль, который не используется.
4. Затем скопируйте следующие коды VBA в окно этого модуля.

Public strFind, strReplace As String

Private Sub FindReplaceWordsinFolderNames()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    'You need to input the specific words for find and replace
    strFind = InputBox("Enter the specific words you want to change.")
    strReplace = InputBox("Enter the specific words you want to change to. (Case Sensitive)")
 
    For Each objFolder In objFolders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Complete!", vbExclamation, "Rename Folders"
End Sub
 
Private Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    On Error Resume Next
    If InStr(LCase(objCurrentFolder.Name), LCase(strFind)) > 0 Then
       'Find and replace the specific words
       objCurrentFolder.Name = Replace(LCase(objCurrentFolder.Name), LCase(strFind), strReplace)
    End If
 
    'Process all folders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. После этого вы должны убедиться, что макрос разрешен в вашем Outlook.
6. Наконец, вы можете щелкнуть значок «Выполнить» на панели инструментов и нажать клавишу F5, чтобы запустить новый макрос.
7. После этого вам нужно будет ввести конкретные слова для поиска и замены.
8. Сразу все определенные слова в именах папок Outlook будут заменены, как показано на следующем снимке экрана:

Устранение проблем с данными PST

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

Об авторе:

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