2 metode za grupno brisanje svih kontakata bez adrese e-pošte u vašem Outlooku

Ako ustanovite da neki kontakti nemaju adresu e-pošte u vašem Outlooku, možda ćete htjeti obraditi svaku mapu kontakata da biste izbrisali sve takve kontakte. Ova strost podijelit će 2 sredstva s vama.

Možda imate mnogo kontakata u svom Outlooku, a neki od njih nemaju adresu e-pošte. Ako mislite da više nisu korisni, morate se nadati da ćete izbrisati sve kontakte bez adrese e-pošte. Na standardni način, možete koristiti "Instant Search" da ih pronađete, a zatim ih izbrišete ručno, kao sljedeći metod 1. Ipak, to je pomalo zamorno. Stoga ćemo vas u Metodi 2 naučiti još jednom efikasnijem načinu.

Metoda 1: Ručno brisanje nakon pronalaženja kontakata bez adrese e-pošte

1. Za astart, pritisnite tipke “Ctrl + 3” za pristup oknu “Kontakti”.
2. Zatim kliknite na polje za pretragu.
3. Zatim, u novoj traci „Traži“, kliknite na „Sve stavke kontakta“.
4. Zatim kliknite na “Ima adresu” > “Ima adresu e-pošte”.
5. Nakon toga, kriterij “NE e-adrese:=[]” će biti dodan u polje za pretragu. Morate ukloniti “NE”.
6. Nakon toga će biti navedeni svi kontakti bez adrese e-pošte.
7. Sada biste trebali ručno odabrati kontakte u rezultatima pretraživanja tako da i vaše grupe kontakata moraju biti na listi.
8. Na kraju, pritisnite tipku “Del” da obrišete sve odabrane kontakte.

Metoda 2: Grupno brisanje svih kontakata bez adrese e-pošte pomoću VBA

1. Prvo dodirnite “Alt + F11” da pokrenete VBA editor u Outlooku.
2. Na novom ekranu kopirajte sledeći VBA kod u modul.

Sub BatchDeleteAllContactsWithoutEmailAddress()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
 
    lTotalCount = 0
    'Process all stores in your Outlook
    For Each objStore In Application.Session.Stores
       Call ProcessContactFolders(objStore.GetRootFolder.Folders, lTotalCount)
    Next
 
    MsgBox lTotalCount & " contacts are deleted!", vbInformation + vbOKOnly, "Delete Contacts"
End Sub

Sub ProcessContactFolders(ByVal objFolders As Outlook.Folders, lCount As Long)
    Dim objFolder As Outlook.Folder
    Dim i As Long
    Dim objContact As Outlook.ContactItem
    Dim objSubfolder As Outlook.Folder

    For Each objFolder In objFolders
        If (objFolder.DefaultItemType = olContactItem) And (objFolder.Name <> "Skype Contacts") Then
           For i = objFolder.Items.Count To 1 Step -1
               If objFolder.Items(i).Class = olContact Then
                  Set objContact = objFolder.Items(i)
                  'Delete the contact w/o email address
                  If (objContact.Email1Address = "") And (objContact.Email2Address = "") And (objContact.Email3Address = "") Then
                     objContact.Delete
                     lCount = lCount + 1
                  End If
               End If
           Next
 
           'Process subfolders recursively
           If objFolder.Folders.Count > 0 Then
              Call ProcessContactFolders(objFolder.Folders, lCount)
           End If
       End If
    Next
End Sub

3. Kasnije kliknite u potprogramu “BatchDeleteAllContactsWithoutEmailAddress”.
4. Na kraju, pritisnite “F5” da pokrenete ovaj makro.
5. Kada se završi, dobićete poruku o rezultatima, kao na slici ispod.
6. Svi kontakti bez adrese e-pošte premješteni su u folder „Izbrisane stavke“.

Držite podalje od svih potencijalnih rizika

Outlook se može oštetiti zbog raznih faktora, kao što su virusi, korisničke greške, softverski kvarovi kao i hardverske greške. Morate biti nevoljni da doživite oštećenje Outlooka, tako da sve ove potencijalne rizike morate držati podalje. Na primjer, morate instalirati moćan antivirusni softver na svoj PC. Osim toga, morate redovno praviti sigurnosnu kopiju svojih Outlook podataka. Na kraju, ali ne i najmanje važno, bolje je da pripremite robustan i pouzdan alat za popravku, kao npr DataNumen Outlook Repair. To može popraviti vaše corrupt PST fajl sa lakoćom.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server korupcija i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com