Таны Outlook дээр имэйл хаяггүйгээр бүх харилцагчдыг багцаар устгах 2 арга

Хэрэв та Outlook дээр зарим харилцагчид имэйл хаяггүй байгааг олж мэдвэл эдгээр бүх харилцагчдыг устгахын тулд Харилцагчийн хавтас бүрийг боловсруулахыг хүсч магадгүй юм. Энэ нийтлэлд тантай 2 аргаар хуваалцах болно.

Магадгүй таны Outlook-д олон харилцагч байгаа бөгөөд тэдгээрийн зарим нь имэйл хаяггүй байж магадгүй юм. Хэрэв та тэдгээрийг ашиглахаа больсон гэж бодож байгаа бол имэйл хаяггүйгээр бүх харилцагчдыг устгах хэрэгтэй. Стандарт аргаар та "Шуурхай хайлт"-ыг ашиглан тэдгээрийг олж, дараа нь дараах 1-р арга шиг гараар устгаж болно. Гэсэн хэдий ч энэ нь жаахан уйтгартай юм. Тиймээс 2-р аргад бид танд өөр илүү үр дүнтэй аргыг заах болно.

Арга 1: Имэйл хаяггүй харилцагчдыг олсны дараа гараар устгана уу

1. Эхлээд "Ctrl + 3" товчлууруудыг дарж "Холбоо барих" цэс рүү орно уу.
2. Дараа нь хайлтын талбарт дарна уу.
3. Дараа нь гарч ирж буй "Хайлт" туузан дээр "Бүх холбоо барих зүйл" дээр дарна уу.
4. Дараа нь "Хаягтай"> "И-мэйл хаягтай" гэснийг товшино уу.
5. Үүний дараа хайлтын талбарт "И-мэйл хаяг БИШ:=[]" гэсэн шалгуур нэмэгдэх болно. Та "БИШ" гэснийг арилгах хэрэгтэй.
6. Дараа нь имэйл хаяггүй бүх харилцагчдыг жагсаах болно.
7. Одоо та хайлтын үр дүнд харилцагчдыг гараар сонгох хэрэгтэй, учир нь таны холбоо барих бүлгүүд жагсаалтад байх ёстой.
8. Эцэст нь "Del" товчийг дарж сонгосон бүх харилцагчдыг устгана уу.

Арга 2: VBA ашиглан имэйл хаяггүйгээр бүх харилцагчдыг багцаар устгах

1. Эхлээд Outlook дээр VBA засварлагчийг ажиллуулахын тулд "Alt + F11" дээр дарна уу.
2. Шинэ дэлгэц дээр дараах 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

3. Дараа нь "BatchDeleteAllContactsWithoutEmailAddress" дэд програм дээр дарна уу.
4. Эцэст нь "F5" товчийг дарж энэ макро идэвхжүүлнэ үү.
5. Энэ нь дууссаны дараа та доорх зураг шиг үр дүнгийн талаар мессеж хүлээн авах болно.
6. Имэйл хаяггүй бүх харилцагчдыг "Устгасан зүйлс" хавтас руу зөөсөн.

Боломжит бүх эрсдэлээс хол байгаарай

Вирус, хэрэглэгчийн алдаа, програм хангамжийн доголдол, техник хангамжийн алдаа зэрэг олон хүчин зүйлийн улмаас Outlook нь гэмтэж болзошгүй. Та Outlook-ийн эвдрэлийг мэдрэх дургүй байх ёстой, тиймээс та эдгээр бүх боломжит эрсдлээс зайлсхийх хэрэгтэй. Жишээлбэл, та компьютер дээрээ хүчирхэг вирусны эсрэг програм суулгах хэрэгтэй. Үүнээс гадна та Outlook-ийн мэдээллээ тогтмол нөөцлөх хэрэгтэй. Хамгийн сүүлд гэхдээ хамгийн багадаа та бат бөх, найдвартай засварын хэрэгсэл бэлтгэх нь дээр DataNumen Outlook Repair. Энэ нь таны асуудлыг засах боломжтой авлига авсан PST хялбар файл.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. SQL Server авлига програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com