Slik angir du automatisk en utløpstid for innkommende eller utgående e-poster med Outlook VBA

Hvis du vil la Outlook automatisk slette spesifikke e-poster, kan du angi en utløpstid for e-postene og bruke AutoArchive for å slette de utløpte e-postene når tiden er ute. Denne artikkelen vil lære deg hvordan du automatisk stiller inn en utløpstid for alle innkommende e-poster via Outlook VBA.

Generelt kan AutoArchive fungere på enten en hel mappe eller en hel postboks. Hvis du vil aktivere den til kun å slette bestemte elementer, må du først spesifisere utløpstiden for e-postene. Neste gang AutoArchive kjører, vil den automatisk slette den utløpte tiden. I tillegg, som du kan se, vil e-postene med utløpstid vises i grå gjennomstrekingsskrift, som bildet nedenfor.

Du kan angi utløpstiden for e-poster i det gjeldende vinduet med e-postegenskaper. På denne måten må du spesifisere det manuelt hver gang, noe som er tungvint.

Under denne omstendigheten må du ønske at Outlook automatisk kan angi utløpstiden for innkommende eller utgående e-poster. Du kan oppnå det med Outlook VBA. Her er de forseggjorte trinnene og kodene.

Angi automatisk en utløpstid for innkommende eller utgående e-poster

1. For det første, start Outlook-applikasjonen og skift til "Utvikler" -fanen.
2. Klikk deretter på "Visual Basic"-knappen.
3. I det nye popup-vinduet åpner du "ThisOutlookSession" VBA-prosjektet og kopierer og limer deretter inn følgende koder i det.

Offentlig WithEvents olItems As Items Private Sub Application_Startup() 'For å fokusere på de nye innkommende e-postene Sett olItems = Application.Session.GetDefaultFolder(olFolderInbox).Items 'Hvis du ønsker å fokusere på de utgående e-postene 'Bruk "Set olItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items. Sub Private Sub olItems_ItemAdd(ByVal Item As Object) Dim strMsg As String Dim nRes As Integer If Item.ExpiryTime = #1/1/4501# Deretter refererer '("m",2,Item.ReceivedTime) til 2 måneder etter varen kommer i den angitte mappen 'Du kan endre den i henhold til dine faktiske behov Item.ExpiryTime = DateAdd("m", 2, Item.ReceivedTime) strMsg = "Den nye e-posten " & Chr(34) & Item.Subject & Chr( 34) & "vil utløpe på " & DateAdd("m", 2, Item.ReceivedTime) & "." nRes = MsgBox(strMsg, vbExclamation + vbOKOnly, "Utløpstid") End If Item.Save End Sub

4. Etter det bør du signere den nye "ThisOutlookSession"-makroen digitalt.
5. Deretter må du endre Outlook-makrosikkerhetsnivået til lavt.
6. Endelig restart Outlook for å aktivere VBA-prosjektet. Fra nå av vil alle nye e-poster i mappen Innboks eller Sendte elementer ha utløpstiden. Du vil også motta en meldingsboks som følgende skjermbilde.

Hold ondsinnede e-poster unna

Outlook kan ikke være unntatt fra korrupsjon ved at ondsinnede e-poster i dag har blitt en av de most vanlige sikkerhetstrusler. Virus kan enkelt skjules i e-postene. Derfor bør du hele tiden være forsiktig med å håndtere nye e-poster. Ellers er det stor sannsynlighet for at du vil lide av Outlook PST-fil korrupsjon, som vil være ganske knotete.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparasjon ødelagt SQL Server mdf database og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med