Slik sletter du automatisk Outlook-e-post fra en bestemt avsender etter bestemte dager

For å la Outlook automatisk slette e-postene fra en bestemt avsender fra bestemte dager, kan du lese denne artikkelen. Her vil vi vise deg de detaljerte trinnene for å bruke VBA-kode for å få den.

Når det gjelder automatisk sletting av e-poster, kan du først tenke på "AutoArchive" -funksjonen. Den kan imidlertid ikke filtrere de spesifikke avsendere ved automatisk arkivering av e-poster. Derfor, for eksempel, hvis du ønsker å automatisk slette e-postene fra en bestemt avsender etter x dager, bør du bruke den andre metoden, for eksempel den følgende.

Slett e-postene automatisk fra en bestemt avsender etter X dager

1. Helt i begynnelsen, start Outlook-applikasjonen din.
2. Deretter utløser du Outlook VBA-editor i henhold til "Hvordan kjøre VBA-kode i Outlook".
3. Deretter kopierer du følgende VBA-kode til "ThisOutlookSession" -prosjektet.

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. Etter det, restart Outlook for å aktivere denne makroen.
5. Siden den gang, hver gang en ny e-post fra den spesifikke avsenderen kommer i Inbox, vil den bli tildelt en bestemt utløpstid – de spesifikke dagene etter at den er mottatt.
6. Deretter, hver gang du start Outlook vil Outlook automatisk sjekke og slette utløpte e-poster fra den spesifikke avsenderen.

Gjenopprett Outlook-data etter korrupsjon

Kanskje du har støtt på en rekke feil og problemer i Outlook. Så, har du noen gang konfrontert Outlook-korrupsjon? For eksempel, hvis du ofte avslutter Outlook på feil måte, har PST-filen en tendens til å bli skadet. Vanligvis, i et slikt tilfelle, kan du velge å hente Outlook-data fra sikkerhetskopier. Eller du kan enten bruke verktøy for reparasjon av innboks eller et pålitelig eksternt verktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med