วิธีส่งต่อไฟล์แนบอัตโนมัติตามเกณฑ์เฉพาะใน Outlook ได้อย่างไร

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

ส่งต่อเฉพาะไฟล์แนบตามเกณฑ์เฉพาะไปยังบุคคลโดยอัตโนมัติด้วยรหัส VBA

ส่งต่อเฉพาะไฟล์แนบตามเกณฑ์เฉพาะไปยังบุคคลโดยอัตโนมัติด้วยรหัส VBA

ตัวอย่างเช่นเมื่อได้รับอีเมลที่หัวเรื่องมีข้อความ "คุณลักษณะ kto" ไฟล์แนบทั้งหมดของอีเมลนี้จะถูกส่งต่อไปยังบุคคลที่ระบุโดยอัตโนมัติโดยไม่มีเนื้อหาข้อความ ขั้นตอนต่อไปนี้สามารถช่วยคุณได้โปรดดำเนินการดังนี้:

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

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

รหัส VBA: ส่งต่ออีเมลอัตโนมัติโดยไม่มีเนื้อหาของข้อความ แต่รวมสิ่งที่แนบมาด้วย:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add ""    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

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

3. จากนั้นบันทึกรหัสและเริ่ม Outlook ใหม่เพื่อใช้เอฟเฟกต์โค้ด

4. นับจากนี้เป็นต้นไปทุกครั้งที่อีเมลใหม่มีข้อความหัวเรื่องเฉพาะมาถึงในกล่องจดหมายของคุณ Outlook จะส่งต่อไฟล์แนบโดยอัตโนมัติโดยไม่มีเนื้อหาของข้อความไปยังบุคคลที่ต้องการ

หมายเหตุ: รหัสนี้ใช้ได้กับบัญชีเริ่มต้นเท่านั้น

---

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

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

🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

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

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

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

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

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

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

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

อ่านเพิ่มเติม       ดาวน์โหลดฟรี      การซื้อ