หากคุณเพิ่มกลุ่มผู้ติดต่อลงในช่อง "ถึง" ของอีเมลปัจจุบันอาจมีกลุ่มที่ซ้ำกันอยู่ บทความนี้จะสอนวิธีใช้ VBA เพื่อลบผู้รับที่ซ้ำกันอย่างรวดเร็ว
เมื่อเขียนอีเมลหากคุณไม่เพียง แต่เพิ่มผู้ติดต่อ แต่ยังรวมถึงกลุ่มผู้ติดต่อเป็นผู้รับบางครั้งอาจมีผู้รับที่ซ้ำกันเนื่องจากกลุ่มผู้ติดต่อจะถูกยุบโดยค่าเริ่มต้น ในกรณีนี้หากคุณต้องการทราบข้อมูลที่ซ้ำกันคุณต้องขยายกลุ่มผู้ติดต่อก่อนจากนั้นจึงเปรียบเทียบผู้รับด้วยตนเองซึ่งได้รับการแนะนำอย่างละเอียดแล้วในบทความก่อนหน้าของฉัน -“วิธีการลบผู้รับที่ซ้ำกันออกจากอีเมล Outlook ของคุณ”. ไม่ต้องสงสัยเลยมันน่าเบื่อมาก ดังนั้นผู้ใช้จำนวนมากจึงต้องการวิธีที่รวดเร็วในการลบผู้รับที่ซ้ำกัน ต่อไปนี้เราจะสอนให้คุณใช้ Outlook VBA
ลบผู้รับที่ซ้ำกันอย่างรวดเร็วในอีเมล Outlook ของคุณ
- ในตอนแรกเปิดแอปพลิเคชัน Outlook ของคุณ
- จากนั้นเปลี่ยนไปที่แท็บ“ นักพัฒนา” และคลิกที่ปุ่ม“ Visual Basic” หรือเพียงแค่กดปุ่ม“ Alt + F11”
- ถัดไปในหน้าต่าง“ Microsoft Visual Basic for Applications” คุณสามารถเปิดโมดูลเปล่า
- จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในโมดูลนี้
Sub RemoveDuplicateRecipients()
Dim objCurrentMail As MailItem
Dim objRecipients As Recipients
Dim ContactGroupFound As Boolean
Dim i, n As Long
Set objCurrentMail = ActiveInspector.CurrentItem
ContactGroupFound = True
While ContactGroupFound = True
Set objRecipients = objCurrentMail.Recipients
ContactGroupFound = False
'Expand the contact groups in "To" field
For i = objRecipients.Count To 1 Step -1
If objRecipients(i).AddressEntry.DisplayType <> olUser Then
For n = 1 To objRecipients(i).AddressEntry.Members.Count
If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
Else
objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
ContactGroupFound = True
End If
Next
objRecipients(i).Delete
End If
Next i
objRecipients.ResolveAll
Wend
'Remove the duplicate recipients
For i = objRecipients.Count To 1 Step -1
For n = (i - 1) To 1 Step -1
If objRecipients(i).Address = objRecipients(n).Address Then
objRecipients(i).Delete
Exit For
End If
Next
Next
End Sub
- หลังจากนั้นคุณสามารถเพิ่มโครงการ VBA ใหม่ในแถบเครื่องมือด่วนของหน้าต่างข้อความ
- ในภายหลังคุณต้องตั้งค่าระดับความปลอดภัยของแมโคร Outlook เป็นระดับต่ำ
- ในที่สุดคุณก็สามารถลองได้
- ขั้นแรกเพียงเขียนอีเมลตามปกติ
- จากนั้นเพิ่มกลุ่มผู้ติดต่อและผู้ติดต่อในช่อง "ถึง"
- ถัดไปคุณสามารถคลิกปุ่มมาโครใหม่ในแถบเครื่องมือด่วน
- ในครั้งเดียว Outlook จะขยายกลุ่มผู้ติดต่อโดยอัตโนมัติจากนั้นจึงลบผู้รับที่ซ้ำกันออก
ปกป้องข้อมูล Outlook ที่มีค่าของคุณ
เนื่องจาก Outlook มีแนวโน้มที่จะขัดข้องข้อมูล Outlook ของคุณจึงเสี่ยงต่อความเสียหาย ดังนั้นคุณต้องพยายามอย่างมากในการปกป้องไฟล์ Outlook ของคุณ ก่อนอื่นคุณต้องสำรองไฟล์ PST ของคุณเป็นประจำ จะอำนวยความสะดวก PST เสียหาย ซ่อมแซม. นอกจากนี้คุณควรเตรียมเครื่องมือแก้ไขที่ทรงพลังไว้ให้ดีกว่านี้เช่น DataNumen Outlook Repair.
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.