จะรับคำเตือนเมื่อส่งอีเมลไปยังโดเมนภายนอกใน Outlook ได้อย่างไร
ในขณะที่ใช้ Outlook คุณจะป้องกันไม่ให้ส่งอีเมลไปยังผู้รับภายนอก บริษัท ของคุณโดยบังเอิญได้อย่างไร จริงๆแล้วคุณสามารถแสดงกล่องคำเตือนเมื่อส่งอีเมลไปยังโดเมนภายนอกใน Outlook บทความนี้จะแนะนำวิธีการ VBA เพื่อให้บรรลุ
รับคำเตือนเมื่อส่งอีเมลไปยังโดเมนภายนอกด้วยรหัส VBA
รับคำเตือนเมื่อส่งอีเมลไปยังโดเมนภายนอกด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยให้คุณได้รับคำเตือนเมื่อส่งอีเมลไปยังโดเมนภายนอกใน Outlook กรุณาดำเนินการดังนี้
1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก นี้OutlookSession เพื่อเปิด ThisOutlookSession (รหัส) จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่าง ดูภาพหน้าจอ:
รหัส VBA: รับคำเตือนเมื่อส่งอีเมลไปยังโดเมนภายนอก
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Update by Extendoffice 20180504
Dim xMailItem As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim i As Long
Dim xRecipientAddress As String
Dim xPrompt As String
Dim xYesNo As Integer
Dim xPos As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
xRecipientAddress = xRecipients.Item(i).Address
xPos = InStrRev(LCase(xRecipientAddress), "@addin99.com")
If xPos <= 0 Then Exit For
Cancel = False
Next
If InStrRev(LCase(xRecipientAddress), "@addin99.com") > 0 Then Exit Sub
xPrompt = "Are you sure to send this email to outside your company? "
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End Subหมายเหตุ: ในรหัส“@ addin99.com” คือโดเมนอีเมลภายในที่คุณจะส่งอีเมลถึง โปรดเปลี่ยนตามที่คุณต้องการ
จากนี้ไปเมื่อคลิกปุ่มส่งเพื่อส่งอีเมลไปยังโดเมนอีเมลภายนอก (ไม่ใช่โดเมนอีเมลภายในที่คุณระบุในรหัส VBA) กล่องคำเตือนจะปรากฏขึ้นตามภาพด้านล่างที่แสดง
บทความที่เกี่ยวข้อง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
