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

Outlook datagjenoppretting, Outlook-løsninger Kan 21, 2018

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 OutlookOfItem Item Sett objMail As Outlook. spesifikk avsender If objMail.SenderEmailAddress = "bob_black@datanumen.com" Deretter 'Angi utløpstid - etter 5 dager objMail.ExpiryTime = objMail.ReceivedTime + 4 objMail.Save End If End If End Sub Private Sub DeleteEmailsFromSpecificSenderAfterXDays() Dim strFilter As String Dim objExpiredItems objExpiredItems objExpiredMail as Outlook. MailItem strFilter = "[ExpiryTime] <= " & Chr(34) & Now & Chr(34) 'Få alle utløpte elementer Sett objExpiredItems = objInboxItems.Restrict(strFilter) For i = objExpiredItems.Count To 1 Step -1 If objExpiredItems( i).Class = olMail Sett deretter objExpiredMail = objExpiredItems(i) 'Slett utløpte e-poster automatisk fra den spesifikke avsenderen If objExpiredMail.SenderEmailAddress = "bob_black@datanumen.com" Deretter objExpiredMail.Delete End If End If Next End Sub

VBA-kode - Slett automatisk e-postene fra en bestemt avsender etter bestemte dager

  1. Etter det, restart Outlook for å aktivere denne makroen.
  2. 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.Automatisk lagt til utløpstid
  3. Deretter, hver gang du start Outlook vil Outlook automatisk sjekke og slette utløpte e-poster fra den spesifikke avsenderen.Automatisk slettede utløpte e-poster fra en bestemt avsender

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

Kommentarer er stengt.