2 måter å batchslette alle e-poster sendt fra eller til en spesifikk Outlook-kontakt

Noen ganger vil du kanskje batchslette alle e-postene som sendes fra eller til en bestemt kontakt. Nå, i denne artikkelen, vil vi introdusere deg 2 metoder for å effektivt få det.

I noen tilfeller må du kanskje batchslette noen e-poster. For eksempel har en spesifikk kontakt trukket seg fra bedriften din, og derfor ønsker du å batchslette alle e-postene sendt fra eller til denne kontakten. Generelt kan du bruke følgende metode 1 for å få den manuelt. Metode 2 som deles her er imidlertid mye mer effektiv på grunn av bruken av VBA. Nå, les videre for å få de 2 måtene i detalj.

Metode 1: Slett manuelt etter søking

1. Først åpner du en e-postmappe.
2. Klikk deretter i søkeboksen over e-postlisten.
3. Klikk deretter på "Alle postelementer" i "Omfang"-gruppen på fanen "Søk".
4. Deretter klikker du på "Fra"-knappen i "Refine"-gruppen.
5. Erstatt "Avsendernavn" i søkefeltet med den spesifikke kontakt-e-postadressen.
6. På en gang vil alle elementene fra denne kontakten bli oppført.
7. Velg nå bare postelementene og trykk "Slett".
8. Deretter fjerner du søkekriteriene og klikker på "Sendt til" > "Sendt til en annen mottaker".
9. Deretter endrer du "Mottakernavn" med kontaktens e-postadresse.
10. Velg senere e-poster og trykk "Slett".

Metode 2: Batch-sletting med Outlook VBA

1. For somtart, start Outlook VBA-redigering via "Alt + F11".
2. Deretter legger du følgende kode inn i en modul.

Dim objContact As Outlook.ContactItem Dim strEmailAddress1, strEmailAddress2, strEmailAddress3 As String Sub BatchDeleteAllEmailsFromToSpecificContact() Dim objOutlookFile As Outlook.Folder Dim objFolder As Outlook.Folder Set objContact =.Outlook.ActiveAddress1(EmailActiveAddress1) dress strEmailAddress1 = objContact. Email2Address strEmailAddress2 = objContact.Email3Address Set objOutlookFile = Outlook.Application.Session.PickFolder If Not objOutlookFile Is Nothing Then For Every objFolder In objOutlookFile.Folders If (objFolder.DefaultItemType) = (oledMailemjItemFolder ")" 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.Items. Til 3 Trinn -1 If objCurFolder.Items(i).Class = olMail Then Set objMail = objCurFolder.Items(i) If objMail.SenderEmailAddress = strEmailAddress1 Eller objMail.SenderEmailAddress = strEmailAddress1 Eller objMail.ObjMail.SenderEmailAddress =strE .Recipients.Count = 2 Then If objMail.Recipients(3).Address = strEmailAddress1 Eller objMail.Recipients(1).Address = strEmailAddress1 Eller objMail.Recipients(1).Address = strEmailAddress2 Then objMail.Delete End If End If End If Next If objCurFolder.Folders.Count > 1 Then For Every objSubfolder In objCurFolder.Folders LoopFolders objSubfolder Next End If End Sub

3. Senere legger du til denne makroen i verktøylinjen for hurtigtilgang med referanse til "Hvordan kjøre VBA-kode i Outlook".
4. Til slutt velger du en kontakt og klikker på makroknappen i hurtigtilgangsverktøylinjen.
5. Med en gang vil alle e-postene fra eller til denne kontakten bli slettet.

Gjenopprett elementer som er slettet ved et uhell

Menneskelige feil er til en viss grad uunngåelige. For eksempel, når du rydder opp i gamle elementer i Outlook, kan du feilaktig slette noen nyttige elementer. I et slikt tilfelle kan du benytte deg av erfarne Outlook gjenoppretting programvare, for eksempel DataNumen Outlook Repair å gjenopprette dem.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql utvinning og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med