Kā automātiski izdzēst Outlook e-pastus no konkrēta sūtītāja pēc noteiktām dienām

Lai ļautu programmai Outlook automātiski dzēst konkrēta sūtītāja e-pastus no noteiktām dienām, varat izlasīt šo rakstu. Šeit mēs parādīsim detalizētas darbības, lai izmantotu VBA kodu, lai to iegūtu.

Runājot par e-pastu automātisku dzēšanu, vispirms varat domāt par funkciju “Automātiskā arhivēšana”. Tomēr tas nevar filtrēt konkrētus sūtītājus, automātiski arhivējot e-pastus. Tāpēc, piemēram, ja vēlaties automātiski dzēst konkrēta sūtītāja e-pastus pēc x dienām, jums jāizmanto citi līdzekļi, piemēram, šis.

Automātiski izdzēst e-pastus no konkrēta sūtītāja pēc X dienām

1. Pašā sākumā palaidiet savu Outlook lietojumprogrammu.
2. Pēc tam aktivizējiet Outlook VBA redaktoru atbilstoši “Kā palaist VBA kodu programmā Outlook".
3. Pēc tam kopējiet šo VBA kodu “ThisOutlookSession” projektā.

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. Pēc tam restartējiet programmu Outlook, lai aktivizētu šo makro.
5. Kopš tā laika katru reizi, kad iesūtnē nonāk jauns konkrētā sūtītāja e-pasts, tam tiks piešķirts noteikts derīguma termiņš - konkrētās dienas pēc tā saņemšanas.
6. Pēc tam katru reizi, kad startējat programmu Outlook, tā automātiski pārbaudīs un dzēsīs no konkrētā sūtītāja e-pasta ziņojumus, kuru derīguma termiņš ir beidzies.

Atjaunot Outlook datus pēc korupcijas

Iespējams, programmā Outlook esat saskāries ar dažādām kļūdām un nepatikšanām. Tad vai jūs kādreiz esat saskāries ar Outlook korupciju? Piemēram, ja bieži nepareizi izejat no programmas Outlook, jūsu PST fails mēdz sabojāties. Parasti šādā gadījumā varat izvēlēties, lai izgūtu Outlook datus no dublējumiem. Vai arī jūs varat vai nu izmantot iesūtnes labošanas rīks vai uzticams ārējs rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar