ไปยังเนื้อหาหลัก

จะเปิดอีเมลขาเข้าทั้งหมดจากบุคคลใดบุคคลหนึ่งโดยอัตโนมัติใน Outlook ได้อย่างไร 

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

เปิดอีเมลขาเข้าทั้งหมดจากบุคคลที่ระบุโดยอัตโนมัติด้วยรหัส VBA


เปิดอีเมลขาเข้าทั้งหมดจากบุคคลที่ระบุโดยอัตโนมัติด้วยรหัส VBA

หากต้องการเปิดอีเมลจากบุคคลใดบุคคลหนึ่งโดยอัตโนมัติรหัส VBA ต่อไปนี้สามารถช่วยคุณได้โปรดดำเนินการดังนี้:

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

2. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก นี้OutlookSession จาก โครงการ 1 (VbaProject.O ™) บานหน้าต่างเพื่อเปิดโหมดจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า

รหัส VBA: เปิดอีเมลทั้งหมดจากบุคคลที่ระบุโดยอัตโนมัติ:

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = ";"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

doc เปิดอีเมลโดยผู้ส่ง 1

หมายเหตุ: ในรหัสด้านบนคุณสามารถเปลี่ยนที่อยู่ของผู้ส่งเป็นของคุณเองได้

3. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ รีสตาร์ท Outlook เพื่อให้รหัสมีผลนับจากนี้ไปเมื่ออีเมลมาจากบุคคลที่คุณระบุอีเมลทั้งหมดจะเปิดโดยอัตโนมัติ ดูภาพหน้าจอ:

doc เปิดอีเมลโดยผู้ส่ง 2


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
did not work on my case i restarted i added 4 email address.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations