2 Mijloace de a șterge în lot toate e-mailurile trimise de la sau către un anumit contact Outlook

Uneori, este posibil să doriți să ștergeți în grup toate e-mailurile care sunt trimise de la sau către un anumit contact. Acum, în acest articol, vă vom prezenta 2 metode pentru a-l obține în mod eficient.

În unele cazuri, poate fi necesar să ștergeți unele e-mailuri în grup. De exemplu, o anumită persoană de contact a demisionat din compania dvs., astfel încât doriți să ștergeți în serie toate e-mailurile trimise de la sau către acest contact. În general, puteți utiliza următoarea Metodă 1 pentru a o obține manual. Cu toate acestea, de fapt, Metoda 2 partajată aici este mult mai eficientă datorită utilizării VBA. Acum, citiți mai departe pentru a obține cele 2 moduri în detaliu.

Metoda 1: Ștergeți manual după căutare

1. La început, deschideți un folder de e-mail.
2. Apoi, faceți clic în caseta de căutare de deasupra listei de e-mail.
3. Apoi, faceți clic pe „Toate articolele de e-mail” în grupul „Scopie” din fila „Căutare”.
4. Apoi, faceți clic pe butonul „De la” din grupul „Rafinare”.
5. Înlocuiți „Numele expeditorului” în caseta de căutare cu adresa de e-mail de contact specifică.
6. Deodată, toate articolele de la acest contact vor fi listate.
7. Acum, selectați numai articolele de e-mail și apăsați „Șterge”.
8. După aceea, clarificați criteriile de căutare și faceți clic pe „Trimis către” > „Trimis către un alt destinatar”.
9. Apoi, schimbați „Numele destinatarului” cu adresa de e-mail a persoanei de contact.
10. Mai târziu, selectați e-mailurile găsite și apăsați pe „Șterge”.

Metoda 2: ștergerea lotului cu Outlook VBA

1. Pentru noitart, lansați editorul Outlook VBA prin „Alt + F11”.
2. Apoi, introduceți următorul cod într-un modul.

Dim objContact As Outlook.ContactItem Dim strEmailAddress1, strEmailAddress2, strEmailAddress3 As String Sub LotDeleteAllEmailsFromToSpecificContact() Dim objOutlookFile As Outlook.Folder Dim objFolder As Outlook.Folder Set Outlook. 1 = objContact.Email1Address strEmailAddress1 = objContact. Email2Address strEmailAddress2 = objContact.Email3Address Set objOutlookFile = Outlook.Application.Session.PickFolder Dacă nu objOutlookFile nu este nimic, atunci pentru fiecare objFolder din objOutlookFile.Folders If (objFolder.Default.Default) And olItemilFolder. ted Items") Apoi LoopFolders objFolder End If Next MsgBox „Completat!”, vbInformation End If End Sub Sub LoopFolders(ByVal objCurFolder As Outlook.Folder) Dim i As Integer Dim objMail As Outlook.MailItem Dim objSubfolder As Outlook.Folder For iCounter =.ItemurFolder La 3 Pas -1 Dacă objCurFolder.Items(i).Class = olMail Apoi Setați objMail = objCurFolder.Items(i) Dacă objMail.SenderEmailAddress = strEmailAddress1 Sau objMail.SenderEmailAddress = strEmailAddress1 Sau objMailAddress2 sau objMailAddress.SenderEmail ElsteEmail. Dacă objMail .Recipients.Count = 3 Then If objMail.Recipients(1).Address = strEmailAddress1 Sau objMail.Recipients(1).Address = strEmailAddress1 Sau objMail.Recipients(2).Address = strEmailAddress1 Apoi objMail.Delete If End If End If Următorul Dacă objCurFolder.Folders.Count > 3 Atunci pentru fiecare objSubfolder din objCurFolder.Folders LoopFolders objSubfolder Next End If End Sub

3. Mai târziu, adăugați această macrocomandă la Bara de instrumente Acces rapid cu referire la „Cum să rulați codul VBA în Outlook".
4. În cele din urmă, selectați un contact și faceți clic pe butonul macro din Bara de instrumente Acces rapid.
5. Deodată, toate e-mailurile de la sau către acest contact vor fi șterse.

Recuperați articolele șterse accidental

Erorile umane sunt inevitabile într-o oarecare măsură. De exemplu, atunci când curățați elementele vechi din Outlook, este posibil să ștergeți din greșeală unele elemente utile. Într-un astfel de caz, puteți apela la cei cu experiență Recuperare Outlook software, cum ar fi DataNumen Outlook Repair să le restaureze.

Introducerea autorului:

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