Cum să setați automat o oră de expirare pentru e-mailurile primite sau trimise cu Outlook VBA

Dacă doriți să lăsați Outlook să șteargă automat anumite e-mailuri, puteți seta un timp de expirare pentru e-mailuri și puteți utiliza Arhivare automată pentru a șterge e-mailurile expirate când timpul expiră. Acest articol vă va învăța cum să setați automat o oră de expirare pentru toate e-mailurile primite prin Outlook VBA.

În general, Arhivarea automată poate funcționa fie pe un folder întreg, fie pe o cutie poștală întreagă. Dacă doriți să îl activați pentru a șterge numai anumite elemente, va trebui să specificați mai întâi timpul de expirare pentru e-mailuri. Prin urmare, data viitoare când se execută Arhivarea automată, va șterge automat timpul expirat. În plus, după cum puteți vedea, e-mailurile cu oră de expirare vor fi afișate cu font barat gri, ca în imaginea de mai jos.

Puteți seta timpul de expirare pentru e-mailuri în fereastra curentă Proprietăți e-mail. Prin acest mijloc, trebuie să-l specificați manual de fiecare dată, ceea ce este greoi.

În această circumstanță, trebuie să doriți ca Outlook să poată seta automat timpul de expirare pentru e-mailurile primite sau trimise. O puteți realiza cu Outlook VBA. Iată pașii și codurile elaborate.

Setați automat o oră de expirare pentru e-mailurile primite sau trimise

1. În primul rând, lansați aplicația Outlook și treceți la fila „Dezvoltator”.
2. Apoi faceți clic pe butonul „Visual Basic”.
3. În noua fereastră pop-up, deschideți proiectul VBA „ThisOutlookSession” și apoi copiați și inserați următoarele coduri în el.

Public WithEvents olItems As Items Private Sub Application_Startup() „Pentru a vă concentra pe noile e-mailuri primite Set olItems = Application.Session.GetDefaultFolder(olFolderInbox).Items „Dacă doriți să vă concentrați pe e-mailurile trimise „Utilizați „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# Apoi „("m",2,Item.ReceivedTime) se referă la 2 luni după articol sosește în folderul specificat „Puteți să-l modificați în funcție de nevoile dvs. reale Item.ExpiryTime = DateAdd("m", 2, Item.ReceivedTime) strMsg = "Noul e-mail" & Chr(34) & Item.Subject & Chr( 34) & "va expira pe " & DateAdd ("m", 2, Item.ReceivedTime) & "." nRes = MsgBox(strMsg, vbExclamation + vbOKOnly, "Expiry Time") End If Item.Save End Sub

4. După aceea, ar trebui să semnați digital noua macrocomandă „ThisOutlookSession”.
5. Ulterior, trebuie să modificați nivelul de securitate al macrocomenzii Outlook la scăzut.
6. În sfârșit restart Outlook pentru a activa proiectul VBA. De acum înainte, toate noile e-mailuri din dosarul Inbox sau Sent Items vor avea termen de expirare. De asemenea, veți primi o casetă de mesaj precum următoarea captură de ecran.

Păstrați e-mailurile rău intenționate la distanță

Outlook nu poate fi scutit de corupții, deoarece în zilele noastre e-mailurile rău intenționate au devenit unul dintre most amenințări comune la securitate. Virușii pot fi ascunși cu ușurință în e-mailuri. Prin urmare, ar trebui să fiți precaut tot timpul când tratați noile e-mailuri. În caz contrar, este foarte probabil să suferi Coruperea fișierului PST Outlook, care va fi destul de noduri.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparație coruptă SQL Server baza de date mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com