Belirli Bir Göndericiden Gelen Outlook E-postalarını Belirli Günlerden Sonra Otomatik Olarak Silme

Outlook'unuzun belirli bir göndericiden gelen e-postaları belirli günlerde otomatik olarak silmesine izin vermek için bu makaleyi okuyabilirsiniz. Burada, onu elde etmek için VBA kodunu kullanmanın ayrıntılı adımlarını göstereceğiz.

E-postaları otomatik silme denilince aklınıza ilk olarak “Otomatik Arşiv” özelliği gelebilir. Ancak, e-postaları otomatik arşivlerken belirli gönderenleri filtreleyemez. Bu nedenle, örneğin, belirli bir göndericiden gelen e-postaları x gün sonra otomatik olarak silmek isterseniz, aşağıdaki gibi diğer yöntemleri kullanmalısınız.

X Gün Sonra Belirli Bir Göndericiden Gelen E-postaları Otomatik Olarak Sil

1. Öncelikle Outlook uygulamanızı başlatın.
2. Ardından, Outlook VBA düzenleyicisini “ göre tetikleyin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
3. Ardından, aşağıdaki VBA kodunu “ThisOutlookSession” projesine kopyalayı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. Ardından, bu makroyu etkinleştirmek için Outlook'u yeniden başlatın.
5. O zamandan beri, belirli bir göndericiden Gelen Kutusuna her yeni e-posta geldiğinde, belirli bir son kullanma süresi (alındıktan sonraki belirli günlerde) atanacaktır.
6. Ardından, Outlook'u her başlattığınızda, Outlook belirli göndericiden gelen süresi dolmuş e-postaları otomatik olarak kontrol edecek ve silecektir.

Bozulmadan Sonra Outlook Verilerini Geri Yükle

Belki de Outlook'ta çeşitli hatalar ve sorunlarla karşılaştınız. Öyleyse, hiç Outlook bozulmasıyla karşılaştınız mı? Örneğin, sık sık Outlook'tan yanlış şekilde çıkarsanız, PST dosyanız zarar görme eğilimindedir. Genel olarak, böyle bir durumda, Outlook verilerini yedeklerden almayı seçebilirsiniz. Veya kullanabilirsiniz gelen kutusu onarım aracı veya güvenilir bir harici araç, örneğin DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql'yi kurtar ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com