Müəyyən günlərdən sonra müəyyən bir göndərəndən Outlook e-poçtlarını avtomatik olaraq necə silmək olar

Outlook-un müəyyən günlərdəki xüsusi göndəricidən gələn e-poçtları avtomatik silməsinə icazə vermək üçün bu məqaləni oxuya bilərsiniz. Burada VBA kodunu əldə etmək üçün istifadə etməyin ətraflı addımlarını göstərəcəyik.

E-poçtların avtomatik silinməsinə gəldikdə, ilk növbədə “Avtomatik arxiv” funksiyasını düşünə bilərsiniz. Bununla belə, e-poçtları avtomatik arxivləşdirərkən xüsusi göndərənləri süzgəcdən keçirə bilməz. Buna görə də, məsələn, x gündən sonra müəyyən bir göndəricidən e-poçtları avtomatik silmək istəyirsinizsə, aşağıdakı kimi digər vasitələrdən istifadə etməlisiniz.

X Gündən sonra Xüsusi Göndərəndən E-poçtları Avtomatik Silin

1. Ən başında, Outlook tətbiqinizi başladın.
2. Sonra, "a uyğun olaraq Outlook VBA redaktorunu işə salın.Outlook-da VBA kodunu necə işlətmək olar".
3. Sonra, aşağıdakı VBA kodunu “ThisOutlookSession” layihəsinə köçürün.

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. Bundan sonra, bu makronu aktivləşdirmək üçün Outlook-u yenidən başladın.
5. O vaxtdan bəri, hər dəfə xüsusi göndərəndən yeni e-məktub Gələnlər qutusuna çatdıqda, ona konkret müddətin bitmə vaxtı təyin ediləcək - onun qəbulundan sonrakı xüsusi günlər.
6. Daha sonra, Outlook-u hər dəfə başlatdığınız zaman, Outlook müəyyən göndərəndən vaxtı keçmiş məktubları avtomatik yoxlayacaq və siləcək.

Korrupsiyadan sonra Outlook məlumatlarını bərpa edin

Yəqin ki, Outlook-da müxtəlif səhvlər və problemlərlə qarşılaşmısınız. O zaman heç Outlook korrupsiyası ilə qarşılaşmısınızmı? Məsələn, Outlook-dan tez-tez düzgün çıxsanız, PST faylınız zədələnməyə meyllidir. Ümumiyyətlə, belə bir vəziyyətdə, Outlook məlumatlarını ehtiyat nüsxələrdən əldə etməyi seçə bilərsiniz. Ya da istifadə edə bilərsiniz inbox təmir aləti və ya etibarlı xarici alət, məsələn DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com