Note: The other languages of the website are Google-translated. Back to English
English English
  • เอกสาร
  • ภาพ
  • จะบล็อกอีเมลขาออกไปยังที่อยู่ที่ระบุใน Outlook ได้อย่างไร

จะบล็อกอีเมลขาออกไปยังที่อยู่ที่ระบุใน Outlook ได้อย่างไร

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


บล็อกอีเมลขาออกไปยังที่อยู่ที่ระบุด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณได้ โปรดทำดังนี้:

1. เปิด Outlook จากนั้นกด . ค้างไว้ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นดับเบิลคลิก นี้OutlookSession จาก โครงการ - โครงการ 1 บานหน้าต่าง จากนั้น คัดลอกและวางโค้ดด้านล่างลงในหน้าต่างโค้ดเปล่า:

รหัส VBA: บล็อกอีเมลขาออกไปยังที่อยู่ที่ระบุ

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub
หมายเหตุ: ในรหัสข้างต้น คุณควรเปลี่ยนที่อยู่อีเมลเป็นของคุณเอง

3. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ ในตอนนี้ เมื่อส่งอีเมล หากพบที่อยู่อีเมลเฉพาะในรายชื่อผู้รับ ข้อความแจ้งจะปรากฏขึ้นดังภาพด้านล่าง คลิก ไม่ที่อยู่อีเมลเฉพาะจะถูกลบออกทันที

4. หลังจากส่งอีเมล คุณสามารถตรวจสอบผู้รับใน รายการที่ถูกส่ง โฟลเดอร์ ที่อยู่อีเมลบางส่วนถูกแยกออกจากผู้รับ ดูภาพหน้าจอ:


Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL