Jak grupowo znaleźć i zamienić określone słowa we wszystkich nazwach folderów programu Outlook

Czasami możesz grupowo zmieniać nazwy wielu folderów programu Outlook, znajdując i zastępując określone słowa w ich nazwach. Z tego artykułu dowiesz się, jak szybko to osiągnąć za pomocą programu Outlook VBA.

Aby lepiej uporządkować wiadomości e-mail, musisz utworzyć wiele niestandardowych folderów w programie Outlook. W obliczu tak wielu niestandardowych folderów czasami z pewnych powodów, takich jak wymagania przełożonego lub zmieniające się preferencje, możesz chcieć zmienić nazwy tych folderów. Most czasu, być może po prostu chciałbyś zastąpić lub usunąć określone słowa w nazwach folderów.

Ogólnie rzecz biorąc, aby zmienić nazwę folderu, możesz po prostu włączyć go i kliknąć prawym przyciskiem myszy. Następnie w menu prawym przyciskiem myszy wybierz „Zmień nazwę folderu”. Następnie wprowadź nową nazwę. Jest to przydatne, jeśli chcesz tylko zmienić nazwę dwóch lub trzech folderów. Ale jeśli chcesz znaleźć i zamienić określone słowa w nazwach wszystkich folderów Outlooka, ręczne robienie tego jest bardzo uciążliwe. W związku z tym zalecamy inny szybki sposób poniżej.

Batch Znajdź i zamień określone słowa we wszystkich nazwach folderów programu Outlook

1. Na wstępie starprogram Outlook.
2. Następnie naciśnij klawisze „Alt + F11” w głównym oknie Outlooka.
3. Następnie w oknie edytora Outlook VBA otwórz moduł, który nie jest używany.
4. Następnie skopiuj następujące kody VBA do tego okna modułu.

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. Następnie upewnij się, że makro jest dozwolone w twoim Outlooku.
6. Na koniec możesz kliknąć ikonę „Uruchom” na pasku narzędzi i nacisnąć klawisz F5, aby uruchomić nowe makro.
7. Następnie musisz wprowadzić określone słowa, aby znaleźć i zamienić.
8. Natychmiast wszystkie określone słowa w nazwach folderów programu Outlook zostaną zastąpione, jak na poniższym zrzucie ekranu:

Rozwiąż niepokojące problemy z danymi PST

Jeśli chodzi o problemy z PST, takie jak różne błędy PST lub niedostępny plik PST, almost wszyscy poczują panikę i będą unikać tego tematu. Jednak jest to dość powszechne w Outlooku. Aby skutecznie uniknąć takich problemów z plikami PST, lepiej okresowo tworzyć kopie zapasowe plików PST. Co więcej, zaleca się również, aby zachować silny Naprawa PST narzędzie w pobliżu, np DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com