2 Dávkové prostriedky Vymazať všetky e-maily odoslané z alebo ku konkrétnemu kontaktu programu Outlook

Niekedy možno budete chcieť hromadne odstrániť všetky e-maily, ktoré sa posielajú od konkrétneho kontaktu alebo od neho. Teraz vám v tomto článku predstavíme 2 metódy, ako to efektívne dosiahnuť.

V niektorých prípadoch môže byť potrebné hromadne odstrániť niektoré e-maily. Napríklad konkrétny kontakt rezignoval z vašej spoločnosti, takže chcete hromadne vymazať všetky e-maily odoslané od alebo k tomuto kontaktu. Všeobecne môžete použiť nasledujúcu metódu 1 na jej manuálne získanie. Avšak tu zdieľaná metóda 2 je v skutočnosti oveľa efektívnejšia vďaka použitiu VBA. Teraz pokračujte ďalej, aby ste podrobne opísali tieto 2 spôsoby.

Metóda 1: Ručné odstránenie po vyhľadaní

1. Najskôr otvorte priečinok pošty.
2. Potom kliknite do vyhľadávacieho poľa nad zoznamom pošty.
3. Ďalej kliknite na „Všetky poštové položky“ v skupine „Rozsah“ na karte „Hľadať“.
4. Potom kliknite na tlačidlo „Od“ v skupine „Upresniť“.
5. Nahraďte „Meno odosielateľa“ vo vyhľadávacom poli konkrétnou kontaktnou e-mailovou adresou.
6. Hneď budú uvedené všetky položky od tohto kontaktu.
7. Teraz vyberte iba poštové položky a stlačte „Odstrániť“.
8. Potom vyčistite kritériá vyhľadávania a kliknite na položky „Odoslané komu“> „Odoslané inému príjemcovi“.
9. Ďalej zmeňte „Meno príjemcu“ na e-mailovú adresu kontaktu.
10. Neskôr vyberte nájdené e-maily a stlačte „Odstrániť“.

Metóda 2: Dávkové odstránenie pomocou Outlooku VBA

1. Pre akotart, spustite editor Outlook VBA cez „Alt + F11“.
2. Potom vložte nasledujúci kód do modulu.

Dim objContact ako Outlook.ContactItem Dim strEmailAddress1, strEmailAddress2, strEmailAddress3 ako reťazec Sub BatchDeleteAllEmailsFromToSpecificContact () Dim objOutlookFile ako Outlook.Folder Dim objFolder ako Outlook.Folder set objContact = Outlook.ActiveExplorer.Se1 = 1. Email1Address strEmailAddress2 = objContact.Email2Address Set objOutlookFile = Outlook.Application.Session.PickFolder, ak nie je objOutlookFile už nič pre každú objFolder v objOutlookFile.Folders If (objFolder.DefaultItemType = olMailItem) And (")> LoopFolders objFolder End If Next MsgBox "Complete!", 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 i = objCurFolder Items.Count K 3 kroku -3 Ak objCurFolder Items (i) .Class = olMail Potom nastavte objMail = objCurFolder Items (i) Ak objMail.Se nderEmailAddress = strEmailAddress1 alebo objMail.SenderEmailAddress = strEmailAddress1 alebo objMail.SenderEmailAddress = strEmailAddress1 potom objMail.Delete ElseIf objMail.Recipients.Count = 2 Potom Ak objMail.Recipients (3) .Address = strEmailAddress1 alebo objMail.address1 Alebo objMail.Recipients (1) .Address = strEmailAddress1 Potom objMail.Delete Koniec Ak Koniec Ak Koniec Ak Ďalej Ak objCurFolder.Folders.Count> 2 Potom Pre každý objSubfolder V objCurFolder.Folders LoopFolders objSubfolder Ďalej Koniec Ak Koniec Sub

3. Neskôr pridajte toto makro na Panel s nástrojmi Rýchly prístup s odkazom na „Ako spustiť kód VBA v programe Outlook".
4. Nakoniec vyberte kontakt a kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
5. Naraz budú odstránené všetky e-maily od alebo k tomuto kontaktu.

Obnovte náhodne odstránené položky

Ľudské chyby sú do istej miery nevyhnutné. Napríklad pri čistení starých položiek v programe Outlook môžete omylom odstrániť niektoré užitočné položky. V takom prípade sa môžete obrátiť na skúseného Obnova programu Outlook softvér, napr DataNumen Outlook Repair obnoviť ich.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S