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

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

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

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

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

1. Для начала запустите программу 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-файла, почти все начинают паниковать и стараются избегать этой темы. Однако это довольно распространенная проблема в Outlook. Чтобы эффективно избежать подобных проблем с PST-файлами, лучше периодически создавать резервные копии ваших PST-файлов. Кроме того, рекомендуется также хранить надежные резервные копии. ремонт PST инструмент поблизости, например DataNumen Outlook Repair.

Об авторе:

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