คุกกี้ช่วยให้เราสามารถนำเสนอบริการของเรา โดยการใช้บริการของเราคุณยินยอมที่จะใช้งานของเราคุกกี้
เคล็ดลับ: ภาษาอื่น ๆ ได้รับการแปลโดย Google คุณสามารถเยี่ยมชม English รุ่นของลิงก์นี้
เข้าสู่ระบบ
x
or
x
x
สมัครสมาชิก
x

or

วิธีการตรวจสอบที่อยู่ผู้รับก่อนส่งผ่าน Outlook?

ในบางครั้งคุณอาจพลาดการเพิ่มผู้รับที่สำคัญลงในฟิลด์ถึง, สำเนาหรือสำเนาลับในขณะที่ส่งอีเมลผ่าน Outlook ที่นี่ฉันสามารถแนะนำวิธีการตรวจสอบว่ามีการเพิ่มที่อยู่อีเมลเฉพาะก่อนส่งผ่าน Outlook หรือไม่

ตรวจสอบที่อยู่ก่อนส่งด้วยรหัส VBA

ตอบไปที่ All excluded Myself in outlook

เมื่อเราใช้ฟังก์ชันตอบกลับทั้งหมดใน Outlook เราอาจเพิ่มบัญชีของเราลงในฟิลด์ To ด้วยหากอีเมลที่คุณได้รับประกอบด้วยบัญชีของคุณอีกสองบัญชี ในกรณีนี้คุณอาจต้องการนำบัญชีของคุณออกจากฟิลด์ To และ CC Ktools สำหรับ Outlook's ชื่อของฉัน คุณสามารถช่วยคุณแก้ปัญหานี้ได้อย่างรวดเร็ว เพียงคลิกเดียวบัญชี myselft ทั้งหมดใน Outlook จะถูกลบออกจากฟิลด์ To และ CC คลิกเพื่อทดลองใช้ฟรี 45 วัน!
doc ตอบไม่รวมบัญชี
Dow arrow dowm

doc ตอบไม่รวมบัญชี 2
Kutools for Outlook: มีโปรแกรมเสริม Outlook ที่มีประโยชน์จำนวนนับสิบให้ทดลองฟรีโดยไม่มีข้อ จำกัด ใน 45 วัน

ตรวจสอบที่อยู่ก่อนส่งด้วยรหัส VBA

ที่นี่ฉันมีสองรหัสสามารถช่วยคุณในการแก้งานนี้คุณสามารถเลือกทุกคนตามที่คุณต้องการ

1 กด Alt + F11 keys เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอ็พพลิเคชัน หน้าต่าง

2 ดับเบิลคลิก ThisOutlookSession จาก Project1 บานหน้าต่างเพื่อเปิดโปรแกรมแก้ไขโค้ดให้คัดลอกและวางโค้ดด้านล่างลงในตัวแก้ไข

VBA: ตรวจสอบที่อยู่ของผู้รับในช่องถึงก่อนส่ง

() เป็นชุดค่าผสม Dim xAddress เป็นสตริง Dim xRecipient As recipient Dim xPrompt เป็น String Dim xYesNo เนื่องจาก Integer Dim xDictionary เป็น Scripting.Dictionary On Error ทำงานต่อไปตั้ง xDictionary = (xAddressArr) ไปยัง UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i สำหรับแต่ละ xRecipient ใน Item.Recified ถ้า xRecipient.Type = olTo แล้วถ้า xDictionary.Exists (xRecipient.Address) จากนั้น xDictionary.Remove xRecipient.Address End If ต่อไปถ้า xDictionary.Count = 20180523 แล้ว GoTo L1 สำหรับ i = 126 เมื่อต้องการ xDictionary.Count - 2 ถ้า xAddress = "" แล้ว xAddress = xDictionary.Keys (i) อื่น xAddress = xAddress + ";" & xDictionary.Keys (i) สิ้นสุดถ้าถัดไป i xPrompt = "คุณไม่ได้ส่งนี้ไป: "& xAddress &" คุณแน่ใจหรือไม่ว่าคุณต้องการส่งจดหมาย " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") ถ้า xYesNo = vbNo แล้วยกเลิก = True L126: ตั้ง xRecipient = ไม่มีอะไรตั้ง xDictionary = ไม่มีอะไรสิ้นสุดย่อย

doc ตรวจสอบที่อยู่ของผู้รับก่อนที่จะส่ง 1

ในโค้ดคุณสามารถเปลี่ยนได้ ("example1@126.com", "example2@126.com", "example3@126.com") ไปยังผู้รับจริงที่คุณต้องการ

3 จากนั้นยังอยู่ใน Microsoft Visual Basic สำหรับแอ็พพลิเคชัน หน้าต่างคลิก เครื่องมือ > อ้างอิง. การตรวจสอบ รันไทม์การเขียนสคริปต์ของ Microsoft ทำเครื่องหมายในช่อง อ้างอิง Project1 โต้ตอบ

doc ตรวจสอบที่อยู่ของผู้รับก่อนที่จะส่ง 2 doc arrow right doc ตรวจสอบที่อยู่ของผู้รับก่อนที่จะส่ง 3

4 คลิก OK และบันทึกรหัส

ตอนนี้หากผู้รับที่ระบุไม่ปรากฏในช่องถึงขณะส่งอีเมลกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณทราบว่าจะส่งอีเมลหรือไม่
doc ตรวจสอบที่อยู่ของผู้รับก่อนที่จะส่ง 4

ด้วยรหัสข้างต้นเพียงตรวจสอบที่อยู่อีเมลที่อยู่ใน ไปยัง ฟิลด์ถ้าคุณต้องการเช็คอิน ไปยัง, CC และ BCC คุณสามารถใช้โค้ดด้านล่างได้

VBA: ตรวจสอบที่อยู่ผู้รับในฟิลด์ถึง / CC / BCC ก่อนส่ง

Private Sub Application_ItemSend (ByVal รายการเป็นวัตถุยกเลิกเป็นบูลีน) 'UpdatebyExtendoffice20180523 Dim xRecipients เป็น Outlook.Recipients Dim xRecipient As Outlook.Recipient Dim xPos As Integer Dim xNotNo As Integer Dim xPrompt As String Dim xAddress As String On Error ทำงานต่อไปถ้ารายการ Class <> olMail แล้วออกจากชุดย่อย xRecipients = Item.Recipients xAddress = "example1@gmail.com" สำหรับแต่ละ xRecipient ใน xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) ถ้า xPos = 0 จากนั้น xPrompt = "คุณส่ง นี้เป็น "& xAddress &" คุณแน่ใจหรือไม่ว่าต้องการส่ง? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") ถ้า xYesNo = vbNo แล้วยกเลิก = True สิ้นสุดถ้าถัดไป x รีเซ็ทเอ็น End Sub

ด้วยรหัสนี้คุณไม่จำเป็นต้องตรวจสอบ รันไทม์การเขียนสคริปต์ของ Microsoft ช่องทำเครื่องหมายเพียงโดยตรงบันทึกรหัสที่จะมีผล



Kutools สำหรับ Outlook

มากกว่าฟังก์ชั่นขั้นสูง 100 สำหรับ Outlook 2010, 2013, 2016, 2019 และ 365

screen shot kutools สำหรับ outlook เล็ก ๆ สำหรับแบนเนอร์ 201812

คุณสมบัติอื่น ๆ | ดาวน์โหลดฟรี | เพียง $ 39.00 สำหรับหลายร้อยฟังก์ชัน

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.