Jak automatycznie usuwać wiadomości e-mail programu Outlook od określonego nadawcy po określonych dniach

Aby umożliwić programowi Outlook automatyczne usuwanie wiadomości e-mail od określonego nadawcy z określonych dni, możesz przeczytać ten artykuł. Tutaj pokażemy Ci szczegółowe kroki, aby użyć kodu VBA, aby go uzyskać.

Jeśli chodzi o automatyczne usuwanie wiadomości e-mail, możesz najpierw pomyśleć o funkcji „Autoarchiwizacja”. Nie może jednak filtrować określonych nadawców podczas automatycznej archiwizacji wiadomości e-mail. Dlatego na przykład, jeśli chcesz automatycznie usuwać wiadomości e-mail od określonego nadawcy po x dniach, powinieneś użyć innych środków, na przykład poniższego.

Automatyczne usuwanie wiadomości e-mail od określonego nadawcy po X dniach

1. Na samym początku uruchom aplikację Outlook.
2. Następnie uruchom edytor Outlook VBA zgodnie z „Jak uruchomić kod VBA w swoim Outlooku".
3. Następnie skopiuj następujący kod VBA do projektu „ThisOutlookSession”.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
 
    Call DeleteEmailsFromSpecificSenderAfterXDays
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'From the specific sender
       If objMail.SenderEmailAddress = "bob_black@datanumen.com" Then
          'Set expiry time - after 5 days
          objMail.ExpiryTime = objMail.ReceivedTime + 4
          objMail.Save
       End If
    End If
End Sub

Private Sub DeleteEmailsFromSpecificSenderAfterXDays()
    Dim strFilter As String
    Dim objExpiredItems As Outlook.Items
    Dim objExpiredMail As Outlook.MailItem
 
    strFilter = "[ExpiryTime] <= " & Chr(34) & Now & Chr(34)
 
    'Get all expired items
    Set objExpiredItems = objInboxItems.Restrict(strFilter)
 
    For i = objExpiredItems.Count To 1 Step -1
        If objExpiredItems(i).Class = olMail Then
           Set objExpiredMail = objExpiredItems(i)
 
           'Auto delete expired emails from the specific sender
           If objExpiredMail.SenderEmailAddress = "bob_black@datanumen.com" Then
              objExpiredMail.Delete
           End If
        End If
    Next
End Sub

4. Następnie uruchom ponownie program Outlook, aby aktywować tę makroinstrukcję.
5. Od tego czasu za każdym razem, gdy nowa wiadomość e-mail od określonego nadawcy pojawi się w skrzynce odbiorczej, zostanie jej przypisany określony czas wygaśnięcia - określone dni po jej otrzymaniu.
6. Następnie przy każdym uruchomieniu programu Outlook będzie on automatycznie sprawdzał i usuwał wygasłe wiadomości od danego nadawcy.

Przywróć dane programu Outlook po uszkodzeniu

Być może napotkałeś wiele błędów i problemów w Outlooku. Czy kiedykolwiek spotkałeś się z korupcją programu Outlook? Na przykład, jeśli często nieprawidłowo zamykasz program Outlook, plik PST zwykle ulega uszkodzeniu. Ogólnie w takim przypadku możesz wybrać pobieranie danych programu Outlook z kopii zapasowych. Lub możesz użyć narzędzie do naprawy skrzynki odbiorczej lub niezawodne narzędzie zewnętrzne, takie jak 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 odzyskać sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com