Muayyan kundan keyin ma'lum bir jo'natuvchidan Outlook elektron pochta xabarlarini qanday avtomatik o'chirish mumkin

Outlook-ga ma'lum kunlardagi ma'lum bir jo'natuvchidan elektron pochta xabarlarini avtomatik ravishda o'chirishga ruxsat berish uchun ushbu maqolani o'qishingiz mumkin. Bu erda biz VBA kodini olish uchun foydalanish bo'yicha batafsil qadamlarni ko'rsatamiz.

Elektron pochta xabarlarini avtomatik o'chirish haqida gap ketganda, siz birinchi navbatda "Avtoarxiv" xususiyati haqida o'ylashingiz mumkin. Biroq, u elektron pochta xabarlarini avtomatik arxivlashda ma'lum jo'natuvchilarni filtrlay olmaydi. Shuning uchun, masalan, agar siz x kundan keyin ma'lum bir jo'natuvchidan elektron pochta xabarlarini avtomatik ravishda o'chirib tashlamoqchi bo'lsangiz, boshqa vositalardan foydalanishingiz kerak, masalan, quyidagi.

X kundan keyin ma'lum bir jo'natuvchidan elektron pochta xabarlarini avtomatik o'chirish

1. Eng boshidanoq, Outlook ilovangizni ishga tushiring.
2. Keyin, Outlook VBA muharririni "ga muvofiq ishga tushiring.Outlook-da VBA kodini qanday ishlatish kerak".
3. Keyinchalik, quyidagi VBA kodini "ThisOutlookSession" loyihasiga nusxalash.

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. Shundan so'ng, ushbu so'lni faollashtirish uchun Outlook-ni qayta ishga tushiring.
5. O'shandan beri, har safar ma'lum bir jo'natuvchidan yangi elektron pochta xabari Inbox-ga kelganida, u ma'lum bir amal qilish muddati - qabul qilinganidan keyin ma'lum kunlar bilan belgilanadi.
6. Keyin, har safar Outlookni ishga tushirganingizda, Outlook ma'lum bir jo'natuvchidan muddati o'tgan xabarlarni avtomatik ravishda tekshiradi va o'chiradi.

Korruptsiyadan keyin Outlook ma'lumotlarini tiklash

Ehtimol, siz Outlook-da turli xil xatolar va muammolarga duch kelgansiz. Keyin Outlook korruptsiyasiga duch kelganmisiz? Masalan, agar siz tez-tez Outlook-dan noto'g'ri chiqsangiz, PST faylingiz shikastlanadi. Odatda, bunday holatda siz Outlook ma'lumotlarini zaxira nusxalaridan olishni tanlashingiz mumkin. Yoki siz ham foydalanishingiz mumkin pochta qutisini tuzatish vositasi yoki ishonchli tashqi vosita, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com