Белгілі бір күндерден кейін Outlook поштасын нақты жіберушіден қалай автоматты түрде жоюға болады

Outlook бағдарламасына электрондық поштаны белгілі бір күндерден бастап автоматты түрде жоюға рұқсат беру үшін сіз осы мақаланы оқи аласыз. Мұнда біз сізге VBA кодын алу үшін оны қолданудың егжей-тегжейлі қадамдарын көрсетеміз.

Электрондық поштаны автоматты түрде жою туралы сөз болғанда, сіз алдымен «АвтоАрхивтеу» мүмкіндігі туралы ойлауға болады. Алайда, ол электрондық хаттарды автоматты түрде мұрағаттау кезінде нақты жіберушілерді сүзе алмайды. Сондықтан, мысалы, егер сіз x күнінен кейін белгілі бір жіберушіден электронды хаттарды автоматты түрде жойғыңыз келсе, келесі тәсілдерді қолданған жөн.

X күннен кейін арнайы жіберушіден электрондық поштаны автоматты түрде жою

1. Ең басында, сtarсіздің Outlook бағдарламаңыз.
2. Содан кейін Outlook VBA редакторын «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
3. Келесі, келесі VBA кодын «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. Осыдан кейін, тtart Осы макросты іске қосу үшін Outlook.
5. Содан бері нақты жіберушінің жаңа электрондық поштасы Кіріс жәшігіне келген сайын, ол белгілі бір жарамдылық мерзімімен - алынғаннан кейінгі нақты күндермен тағайындалады.
6. Содан кейін, сіз сайынtart Outlook, Outlook белгілі бір жіберушіден мерзімі өтіп кеткен хаттарды автоматты түрде тексеріп, жояды.

Жемқорлықтан кейін Outlook деректерін қалпына келтіріңіз

Мүмкін сіз Outlook бағдарламасында әртүрлі қателіктер мен қиындықтарға тап болған шығарсыз. Одан кейін сіз Outlook-тің сыбайлас жемқорлық көріністеріне тап болдыңыз ба? Мысалы, егер сіз Outlook бағдарламасынан жиі шықсаңыз, сіздің PST файлыңыз бүлінуге бейім. Әдетте, мұндай жағдайда сақтық көшірмелерден Outlook деректерін алуды таңдауға болады. Немесе сіз пайдалана аласыз кіріс жәшігін жөндеу құралы немесе сияқты сенімді сыртқы құрал DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. қалпына келтіру кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com