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 organizować wiadomości e-mail, musisz utworzyć wiele niestandardowych folderów w Outlooku. W obliczu tak wielu niestandardowych folderów, czasami, z różnych powodów, takich jak wymagania przełożonego lub zmieniające się preferencje, możesz chcieć zmienić ich nazwy. Najczęściej po prostu chcesz zastąpić lub usunąć konkretne 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 samym początku uruchom program 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

W przypadku problemów z PST, takich jak różne błędy PST lub niedostępny plik PST, prawie każdy wpada w panikę i unika tego tematu. Jest to jednak dość powszechne w programie Outlook. Aby skutecznie unikać takich problemów z PST, warto okresowo tworzyć kopie zapasowe pliku PST. Ponadto zaleca się również przechowywanie kopii zapasowej. 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