Jak automatycznie zmienić nazwę lub usunąć starsze wiadomości e-mail z takimi samymi tematami, jak nowe przychodzące wiadomości

Niektóre osoby mają nadzieję, że Outlook może automatycznie sprawdzać tematy starszych wiadomości e-mail, gdy nadejdą nowe wiadomości e-mail, i zmieniać nazwy lub usuwać starsze wiadomości e-mail, jeśli mają te same tematy, co nowe wiadomości e-mail. Wymaga to używania Outlook VBA. Ten artykuł pomoże Ci to osiągnąć.

Musiałeś kiedykolwiek otrzymać wiele e-maili o tej samej tematyce. Czy identyfikowanie i rozróżnianie ich na liście e-mailowej jest dla Ciebie trochę kłopotliwe? A może uważasz, że te starsze e-maile są dla Ciebie zupełnie bezużyteczne? Jeśli tak, musisz pozwolić programowi Outlook na automatyczne skanowanie i sprawdzanie wszystkich istniejących wiadomości e-mail, gdy nadejdą nowe wiadomości e-mail. W przypadku wiadomości e-mail z tymi samymi tematami, co nowe, program Outlook może zapytać, czy zmienić ich nazwę, czy usunąć. Bez wątpienia Outlook nie zapewnia użytkownikom tego rodzaju funkcji. Dlatego musisz uciekać się do VBA. Tutaj ujawnimy Ci szczegółowe kody i operacje.

Automatycznie zmień nazwę lub usuń starsze wiadomości e-mail

1. Najpierw uruchom Outlooka i przejdź do zakładki „Deweloper”.
2. Wtedy będziesz mógł znaleźć i kliknąć przycisk „Visual Basic”.
3. Po naciśnięciu go uzyskasz dostęp do okna edytora VBA. W nim będziesz musiał otworzyć projekt „ThisOutlookSession”.
4. Następnie powinieneś skopiować i wkleić do niego następujące kody VBA.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    'Specify the Emails in Inbox folder
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim i As Long
    Dim objVariant As Variant
    Dim strMsg As String
    Dim nRes As Integer

    For i = 1 To olItems.Count
        Set objVariant = olItems.Item(i)
        If TypeOf objVariant Is MailItem Then
           If objVariant.Subject = Item.Subject And objVariant.ReceivedTime < Item.ReceivedTime Then
              nDateDiff = DateDiff("d", objVariant.ReceivedTime, Now)
              'Add "(Old)" suffix to the email subjects
              objVariant.Subject = objVariant.Subject & "(Old)"
              objVariant.Save
              'If the old emails have been recieved for 60 days, ask you whether to delete
              If nDateDiff > 60 Then
                 strMsg = "There are some older emails whcih have the same subjects with the new email and have been recieved for 2 months. Do you want to delete them?"
                 nRes = MsgBox(strMsg, vbExclamation + vbYesNo, "Find Older Emails")
                 If nRes = vbYes Then
                    objVariant.Delete
                 End If
              End If
           End If
        End If
    Next
End Sub

5. Następnie będziesz musiał cyfrowo podpisać ten kod. Kliknij „Narzędzia”> „Podpis cyfrowy”. Następnie w wyskakującym oknie dialogowym możesz wybrać jeden istniejący certyfikat. Jeśli nie ma gotowego certyfikatu, możesz użyć „Certyfikatów cyfrowych dla projektów VBA”, aby utworzyć nowy.
6. Następnie możesz wyjść z bieżącego okna i przejść do zmiany ustawień makr, zezwalając tylko na makra podpisane cyfrowo.
7. W końcu możesz ponownie uruchomić Outlooka, aby aktywować nowe makro. Od teraz, gdy nowe wiadomości e-mail pojawią się w Skrzynce Odbiorczej, Outlook będzie automatycznie sprawdzał wszystkie istniejące wiadomości.

• Jeśli stare wiadomości e-mail mają ten sam temat, co nowe, program Outlook automatycznie doda sufiks „(Stare)” do tematu wiadomości e-mail.
• A jeśli starsze e-maile były przechowywane w Inboxie przez ponad 2 miesiące, to otrzymasz monit z pytaniem, czy chcesz je usunąć, jak na poniższym obrazku. Możesz wybrać „Tak” lub „Nie” w zależności od własnych potrzeb.

 Uszkodzenie pliku programu Outlook z powodu dużego rozmiaru

Niektórzy użytkownicy nie mają zwyczaju regularnego usuwania starych elementów w Outlooku. W rezultacie ich pliki Outlooka będą miały duży rozmiar, co jest zdecydowanie niewskazane. Dzieje się tak, ponieważ zbyt duży plik Outlooka jest znacznie bardziej podatny na ataki niż plik o małym rozmiarze. Po uszkodzeniu pliku wbudowane narzędzie do naprawy, Scanpst.exe, w większości przypadków okaże się bezużyteczne. Twój wyjątkowy ośrodek może być znakomitym i sprawdzonym rozwiązaniem. uszkodzony program Outlook PST Repair Tool, lubić 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 napraw uszkodzony SQL Server baza danych mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com