หากคุณพบว่ารายชื่อผู้ติดต่อบางรายไม่มีที่อยู่อีเมลใน Outlook ของคุณ คุณอาจต้องการดำเนินการกับแต่ละโฟลเดอร์รายชื่อผู้ติดต่อเพื่อลบรายชื่อผู้ติดต่อที่ไม่มีที่อยู่อีเมลเหล่านั้น บทความนี้จะแนะนำ 2 วิธีให้คุณ
บางทีคุณอาจมีผู้ติดต่อจำนวนมากใน Outlook ของคุณและบางรายไม่มีที่อยู่อีเมล หากคุณคิดว่าไม่มีประโยชน์อีกต่อไปคุณต้องหวังว่าจะลบผู้ติดต่อทั้งหมดที่ไม่มีที่อยู่อีเมล ตามวิธีมาตรฐานคุณสามารถใช้ "ค้นหาทันที" เพื่อค้นหาและลบออกด้วยตนเองเช่นวิธีที่ 1 ต่อไปนี้ แต่มันค่อนข้างน่าเบื่อ ดังนั้นในวิธีที่ 2 เราจะสอนคุณอีกวิธีหนึ่งที่มีประสิทธิภาพมากขึ้น
วิธีที่ 1: ลบด้วยตนเองหลังจากค้นหาผู้ติดต่อที่ไม่มีที่อยู่อีเมล
- ขั้นแรก ให้กดปุ่ม “Ctrl + 3” เพื่อเข้าถึงหน้าต่าง “รายชื่อติดต่อ”
- จากนั้นคลิกในช่องค้นหา
- ถัดไปในริบบิ้น "การค้นหา" ที่ปรากฏขึ้นให้คลิก "รายการที่ติดต่อทั้งหมด"
- จากนั้นคลิก“ มีที่อยู่”>“ มีที่อยู่อีเมล”
- หลังจากนั้นเกณฑ์“ NOT emailaddresses: = []” จะถูกเพิ่มเข้าไปในช่องค้นหา คุณต้องลบ "NOT"
- จากนั้นรายชื่อติดต่อทั้งหมดที่ไม่มีที่อยู่อีเมลจะปรากฏขึ้น
- ตอนนี้คุณควรเลือกผู้ติดต่อในผลการค้นหาด้วยตนเองโดยที่กลุ่มผู้ติดต่อของคุณจะต้องอยู่ในรายการด้วย
- สุดท้ายกดปุ่ม "Del" เพื่อลบรายชื่อที่เลือกทั้งหมด
วิธีที่ 2: แบทช์ลบผู้ติดต่อทั้งหมดที่ไม่มีที่อยู่อีเมลด้วย VBA
- ในตอนแรกให้แตะที่“ Alt + F11” เพื่อเปิดตัวแก้ไข VBA ใน Outlook
- ในหน้าจอใหม่ให้คัดลอกรหัส 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” เพื่อเรียกใช้มาโครนี้
- เมื่อดำเนินการเสร็จสิ้นคุณจะได้รับข้อความเกี่ยวกับผลลัพธ์ดังภาพด้านล่าง
- รายชื่อติดต่อทั้งหมดที่ไม่มีที่อยู่อีเมลถูกย้ายไปที่โฟลเดอร์“ รายการที่ถูกลบ”
ให้ห่างไกลจากความเสี่ยงที่อาจเกิดขึ้นทั้งหมด
Outlook อาจได้รับความเสียหายเนื่องจากปัจจัยหลายประการเช่นไวรัสข้อผิดพลาดของผู้ใช้ความล้มเหลวของซอฟต์แวร์และความผิดพลาดของฮาร์ดแวร์ คุณต้องไม่เต็มใจที่จะประสบกับความเสียหายของ Outlook ดังนั้นคุณต้องป้องกันความเสี่ยงที่อาจเกิดขึ้นเหล่านี้ไว้ ตัวอย่างเช่นคุณต้องติดตั้งซอฟต์แวร์ป้องกันไวรัสที่มีศักยภาพบนพีซีของคุณ นอกจากนี้คุณต้องสำรองข้อมูล Outlook ของคุณเป็นประจำ สุดท้าย แต่ไม่ท้ายสุดคุณควรเตรียมเครื่องมือซ่อมแซมที่แข็งแกร่งและเชื่อถือได้เช่น DataNumen Outlook Repair. สามารถแก้ไขไฟล์ PST เสียหาย ไฟล์ได้อย่างง่ายดาย
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ SQL Server คอรัปชั่น และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.