วิธีป้องกันการส่งอีเมลไปยังที่อยู่อีเมลเฉพาะใน Outlook ของคุณ

ผู้ใช้หลายคนหวังว่าจะบล็อกการส่งอีเมลไปยังที่อยู่อีเมลเฉพาะใน Outlook โดยไม่ได้ตั้งใจ ดังนั้นในบทความนี้เราจะแนะนำวิธีการที่จะตระหนักถึงมัน

Outlook ไม่มีคุณลักษณะดั้งเดิมสำหรับการบล็อกการส่งอีเมลไปยังที่อยู่อีเมลที่ระบุ ดังนั้นหากคุณต้องการที่จะเข้าใจมันจำเป็นต้องมีสคริปต์เล็กน้อย ต่อไปนี้เราจะแบ่งปันโค้ด VBA ดังกล่าว หากคุณไม่ทราบวิธีใช้ VBA คุณสามารถอ่านหน้าก่อนหน้านี้ได้ost - "วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"

ป้องกันการส่งอีเมลไปยังที่อยู่อีเมลเฉพาะ

1. ในตอนแรกให้เข้าถึงโปรแกรมแก้ไข Outlook VBA ผ่าน“ Alt + F11”
2. จากนั้นใส่รหัสต่อไปนี้ในโปรเจ็กต์“ ThisOutlookSession”

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objRecipient As Outlook.Recipient
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Expand the contact groups in Recipients
       ContactGroupFound = True
       Do While ContactGroupFound = True
          Set objRecipients = objMail.Recipients
          ContactGroupFound = False
 
          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
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
       Loop
 
       'Remove specific email address
       For Each objRecipient In objRecipients
           If objRecipient.Address = "shelly@datanumen.com" Then
              If MsgBox("Do you want to email to " & Chr(34) & "shelly@datanumen.com" & Chr(34) & "?", vbExclamation + vbYesNo) = vbNo Then
                 objRecipient.Delete
              End If
           End If
       Next
    End If
End Sub

3. หลังจากนั้นให้ออกจากหน้าต่าง“ Microsoft Visual Basic for Applications”
4. ในที่สุดให้ลองทำตามขั้นตอนต่อไปนี้

• เริ่มต้นด้วยการเขียนอีเมลและกรอกผู้รับ
• จากนั้นคลิกปุ่ม "ส่ง"
• ในครั้งเดียวมาโครจะทำงานเพื่อขยายกลุ่มผู้ติดต่อในผู้รับหากมีและดูว่าผู้รับมีที่อยู่อีเมลที่ระบุหรือไม่
• หากพบที่อยู่คุณจะได้รับข้อความดังแสดงในรูปต่อไปนี้
• หากคุณเลือก“ ไม่” ที่อยู่อีเมลนั้นจะถูกลบทันที
• หลังจากส่งอีเมลแล้วคุณสามารถตรวจสอบผู้รับได้ซึ่งแน่นอนว่าไม่มีที่อยู่อีเมลที่ระบุ

ซ่อมแซมไฟล์ Outlook ที่เสียหายของคุณ

ไฟล์ Outlook ของคุณเคยเสียหายหรือไม่? นั่นเป็นที่ยอมรับมost ปัญหาที่น่ารำคาญใน Outlook เมื่ออยู่ภายใต้บังคับคุณต้องจัดการ ซ่อม PSTซึ่งเป็นปมเล็กน้อย ตามปกติคุณจะนึกถึงการใช้ Scanpst ในครั้งแรก แต่น่าเสียดายที่อาจล้มเหลวในกรณีดังกล่าว รีสอร์ทของคุณควรเป็นเครื่องมือที่มีประสบการณ์มากกว่าเช่น DataNumen Outlook Repairหรือบริการกู้คืน PST แบบมืออาชีพ

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อม sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.