Outlook permite utilizatorilor să seteze timpul de expirare pentru e-mailuri. Astfel de e-mailuri sunt afișate cu font barat gri. Dacă doriți să arhivați rapid toate e-mailurile expirate, puteți utiliza metoda introdusă în acest articol.
Puteți seta orice oră de expirare pentru orice e-mail în Outlook. Odată ce timpul de expirare a trecut, e-mailurile vor fi marcate ca expirate cu o barare gri. În acest scenariu, se recomandă întotdeauna să le arhivați rapid, deoarece probabil că nu mai sunt utile. Arhivarea acestora poate reduce dimensiunea fișierului Outlook într-o anumită măsură. În cele ce urmează, vă vom învăța cum să arhivați rapid toate e-mailurile expirate în Outlook.
Arhivați rapid toate e-mailurile expirate
- Pentru noitart, lansați programul Outlook.
- Apoi, în ecranul Outlook, puteți apăsa butoanele tastei „Alt + F11” pentru a accesa editorul VBA.
- Apoi, în fereastra „Microsoft Visual Basic for Applications”, trebuie să deschideți un modul neutilizat sau să introduceți direct unul nou.
- Ulterior, ar trebui să copiați următorul cod VBA în acest modul.
Dim objArchiveFile As folder Dim objArchiveFolder As folder Sub ArchiveAllExpiredEmails() Dim objOutlookFile As Outlook.folder Dim objFolder As Outlook.folder Set objOutlookFile = Application.Session.PickFolder 'Deschideți Arhiva Fișier PST Application.Session\Ustore ".TAdd. \Documents\Outlook Files\Archive.pst" Set objArchiveFile = Application.Session.folders("Arhive") Dacă nu (objOutlookFile nu este nimic), atunci pentru fiecare objFolder din objOutlookFile.folders Dacă objFolder.DefaultItemFolders = n oljOutlookFileFolders End If Next 'Dacă doriți să închideți fișierul PST Arhivă, utilizați următoarea linie 'Application.Session.RemoveStore objArchivePSTFile MsgBox "Complete!", vbExclamation End If End Sub Sub ProcessFolders(ByVal objCurrentFolder As Outlook.folder) Dim i As Long Dim objMail As Outlook.MailItem Dim objSubfolder As Outlook.folder For i = objCurrentFolder.Items.count La 1 Pas -1 Dacă TypeOf objCurrentFolder.Items(i) Is MailItem Apoi setați objMail = objCurrentFolder.Items(i) „Mutați e-mailul Expirat arhivare” Fișier dacă objMail.ExpiryTime < Acum, apoi la eroare Reluați Următorul Set objArchiveFolder = objArchiveFile.folders(objCurrentFolder.Name) Dacă objArchiveFolder nu este nimic, atunci setați objArchiveFolder = objArchiveFile.folders.Add(objArchiveFile.folders.Add(objArchiveFile.folders.Add(objArchiveFolder.objCurreMail)Folder.ObjCurrentMail) End If End If Next 'Procesează toate subfolderele recursiv Dacă objCurrentFolder.folders.count > 0 Atunci pentru fiecare objSubfolder din objCurrentFolder.folders Apelează ProcessFolders(objSubfolder) Next End If End Sub
- Apoi, puteți rula această macrocomandă dintr-o dată. Doar faceți clic pe pictograma „Run” din bara de instrumente sau atingeți butonul „F5”.
- După aceea, va trebui să selectați un fișier Outlook sursă care urmează să fie verificat pentru e-mailuri expirate.
- Mai târziu, după selectarea și apăsarea „OK”, macro-ul va start alergare.
- Când primiți mesajul care solicită „Terminate”, e-mailurile expirate au fost mutate cu succes în fișierul PST de arhivă.
În cazul blocării Outlook
Dacă sunteți un utilizator obișnuit al Outlook de zeci de ani, este posibil ca fișierul dvs. de date Outlook să fi avut o dimensiune destul de mare. În acest caz, fișierul este de fapt foarte vulnerabil la mulți factori. După cum știm cu toții, deși Outlook este prezentat ca un client de e-mail extraordinar, este încă predispus să se blocheze și să se deterioreze. Astfel, ar fi mai bine să pregătești un avansat Repararea Outlook instrument în apropiere, cum ar fi DataNumen Outlook Repair. Vă poate salva de corupția datelor Outlook ca o briză.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupție sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com