Pentru a menține căsuța poștală Outlook în dimensiuni reduse și pentru a preveni coruperea datelor Outlook, se recomandă să eliminați atașamentele din e-mailurile care au fost primite sau trimise cu o anumită perioadă în urmă. Acest articol vă va ajuta să realizați rapid acest lucru cu Outlook VBA.
După cum știm cu toții, cu cutia poștală Outlook mai mare, datele Outlook vor deveni mult mai vulnerabile. Prin urmare, mă obișnuiesc să elimin atașamentele din e-mailurile vechi care sunt mai vechi decât o anumită dată, deoarece de obicei am salvat aceste atașamente pe discul meu local înainte. Dar este puțin supărător că trebuie să aflu ce e-mail-uri sunt vechi și apoi să elimin manual atașamentele. Pentru a-mi îmbunătăți eficiența, vin cu o soluție prin Outlook VBA.
Eliminați atașamentele din e-mailurile primite mai vechi decât o anumită dată
- Pentru început, deschideți Outlook și accesați fila „Dezvoltator”.
- Apoi apăsați butonul „Visual Basic” din grupul „Cod”.
- O nouă fereastră va apărea. În el, ar trebui să deschideți un nou modul și să copiați următoarele coduri în el.
Sub RemoveAttachmentsfromAgedEmail()
Dim olInbox As Outlook.Folder
Dim varItem As Variant
Dim i As Integer
Dim intDatDiff As Integer
Dim Att As Attachment
Set olInbox = Session.GetDefaultFolder(olFolderInbox)
For i = olInbox.Items.Count To 1 Step -1
Set varItem = olInbox.Items.Item(i)
If varItem.Class = olMail Then
'calculate the period between now and the received time
intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)
'You can replace "50" as per your needs
If intDatDiff > 50 Then
For Each Att In varItem.Attachments
Att.Delete
Next Att
varItem.Save
End If
End If
Next
End Sub
- Acum puteți ieși din fereastra curentă „Visual Basic” și puteți continua să adăugați macrocomandă în Bara de instrumente Acces rapid. Urmați pașii de mai jos:
- În primul rând, apăsați săgeata în jos din bara de instrumente Acces rapid și alegeți „Mai multe comenzi” din lista derulantă.
- Apoi ar trebui să selectați „Macrocomenzi” în câmpul „Alegeți comenzile din”.
- Apoi selectați macrocomanda corectă și faceți clic pe butonul „Adăugați” din centru.
- În cele din urmă, faceți clic pe butonul „OK” pentru a-l activa și reveniți la fereastra principală a Outlook.
- În cele din urmă, puteți găsi și faceți clic pe butonul din Bara de instrumente Acces rapid. Atașamentele din e-mailuri, care sunt mai vechi decât data specificată, vor fi eliminate rapid.
Eliminați atașamentele din e-mailurile trimise mai vechi decât o anumită dată
Pentru a atinge acest scop, puteți copia toate codurile VBA de mai sus, dar puteți modifica anumite linii urmând notificările de mai jos:
- În primul rând, schimbați toate „olInbox” în „olSentItemFolder” în codurile VBA.
- Apoi înlocuiți „Set olInbox = Session.GetDefaultFolder(olFolderInbox)” cu:
Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)
- Apoi înlocuiți „intDatDiff = DateDiff(“d”, varItem.ReceivedTime, Now)” cu:
intDatDiff = DateDiff("d", varItem.SentOn, Now)
Eliminați erorile enervante de Outlook
Dacă ați folosit Outlook de mult timp, erorile frecvente trebuie să fi devenit lucruri obișnuite. Este evident că nu poți să prezici sau să scapi complet de ele. Ceea ce poți face este doar să încerci tot posibilul să le rezolvi. De exemplu, utilizați instrumentul de reparare a căsuței primite, Scanpest.exe pentru a remediați eroarea de e-mail din Outlook. De asemenea, trebuie să faceți o copie de rezervă regulată pentru datele dvs. Outlook în caz de blocare neprevăzută.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara SQL Server deteriorarea mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com