Եթե գտնում եք, որ որոշ կոնտակտներ ձեր Outlook- ում էլ.փոստի հասցե չունեն, գուցե ցանկանաք մշակել Կոնտակտների յուրաքանչյուր պանակ ՝ բոլոր այդպիսի կոնտակտները ջնջելու համար: Այս post ձեզ հետ կիսելու է 2 միջոց:
Գուցե ձեր Outlook- ում շատ կապեր ունեք, և նրանցից ոմանք էլփոստի հասցե չունեն: Եթե կարծում եք, որ դրանք այլևս օգտակար չեն, պետք է հույս ունենաք ջնջել բոլոր կոնտակտները առանց էլեկտրոնային հասցեի: Ստանդարտ ձևով դուք կարող եք օգտագործել «Ակնթարթային որոնում» ՝ դրանք գտնելու և ապա ձեռքով ջնջելու համար, ինչպես հետևյալ 1-ին մեթոդը: Այնուամենայնիվ, դա մի քիչ հոգնեցուցիչ է: Հետեւաբար, մեթոդ 2-ում մենք ձեզ կսովորեցնենք մեկ այլ ավելի արդյունավետ ձև:
Մեթոդ 1. Ձեռքով ջնջեք առանց էլեկտրոնային հասցեի կոնտակտներ գտնելուց հետո
- Համար, ինչպեսtart, սեղմեք «Ctrl + 3» ստեղները «Կոնտակտներ» պատուհանը մուտք գործելու համար:
- Դրանից հետո կտտացրեք որոնման տուփին:
- Հաջորդը, «Որոնում» հայտնվող ժապավենի մեջ կտտացրեք «Բոլոր կոնտակտային իրերը»:
- Դրանից հետո կտտացրեք «Հասցե ունի»> «Էլ.փոստի հասցե ունի»:
- Դրանից հետո որոնման վանդակում կավելացվի «NOT eailaddreses: = []» չափանիշը: Դուք պետք է հեռացնեք «ՉԻ» -ը:
- Հետևաբար, բոլոր կոնտակտները, առանց էլեկտրոնային հասցեի, կցուցադրվեն:
- Այժմ դուք պետք է ձեռքով ընտրեք կոնտակտներ որոնման արդյունքներում, որպեսզի ձեր կոնտակտային խմբերը նույնպես ցանկում լինեն:
- Վերջապես, սեղմեք «Del» ստեղնը կոճակը ՝ բոլոր ընտրված կոնտակտները ջնջելու համար:
Մեթոդ 2. Խմբաքանակով ջնջել բոլոր կոնտակտները առանց էլեկտրոնային հասցեի VBA- ի
- Սկզբում հպեք «Alt + F11» - ին ՝ Outlook- ում VBA խմբագիր գործարկելու համար:
- Նոր էկրանին պատճենեք հետևյալ VBA կոդը մոդուլի մեջ:
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
- Ավելի ուշ կտտացրեք «BatchDeleteAllContactsWithoutEmailAddress» ենթածրագիրը:
- Ի վերջո, սեղմեք «F5» ՝ այս մակրոը գործարկելու համար:
- Ավարտելուց հետո դուք կստանաք հաղորդագրության արդյունքների մասին, ինչպես ստորև նկարը:
- Առանց էլփոստի հասցեի բոլոր կոնտակտները տեղափոխվել են «leնջված իրեր» պանակ:
Հեռու պահեք բոլոր հնարավոր ռիսկերից
Outlook- ը կարող է վնասվել մի շարք գործոնների պատճառով, ինչպիսիք են վիրուսները, օգտագործողների սխալները, ծրագրակազմի անսարքությունները, ինչպես նաև ապարատային անսարքությունները: Պետք է խուսափեք Outlook- ի վնասը զգալուց, ուստի հարկավոր է հեռու պահել այս բոլոր հնարավոր ռիսկերը: Օրինակ, ձեր համակարգչում անհրաժեշտ է տեղադրել ուժեղ հակավիրուսային ծրագիր: Բացի այդ, դուք պետք է կանոնավոր կերպով կրկնօրինակեք ձեր Outlook տվյալները: Վերջապես, բայց ոչ պակաս կարևոր է, որ ավելի լավ է պատրաստեք վերականգնման կայուն և հուսալի գործիք, ինչպես օրինակ DataNumen Outlook Repair, Դա կարող է շտկել ձեր կոռումպացված PST ֆայլը հեշտությամբ:
Հեղինակի ներածություն.
Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում SQL Server կոռուպցիա և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com