วิธีส่งต่อไฟล์แนบอัตโนมัติตามเกณฑ์เฉพาะใน 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 "skyyang@addin88.com" 'change address to your own
.ResolveAll
End With
.Send
End With
End Sub
หมายเหตุ: ในรหัสด้านบนคุณควรเปลี่ยนข้อความหัวเรื่องและที่อยู่ผู้รับเป็นของคุณเอง
3. จากนั้นบันทึกรหัสและเริ่ม Outlook ใหม่เพื่อใช้เอฟเฟกต์โค้ด
4. นับจากนี้เป็นต้นไปทุกครั้งที่อีเมลใหม่มีข้อความหัวเรื่องเฉพาะมาถึงในกล่องจดหมายของคุณ Outlook จะส่งต่อไฟล์แนบโดยอัตโนมัติโดยไม่มีเนื้อหาของข้อความไปยังบุคคลที่ต้องการ
หมายเหตุ: รหัสนี้ใช้ได้กับบัญชีเริ่มต้นเท่านั้น
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!
สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!
🤖 Kutools AI : ใช้เทคโนโลยี AI ขั้นสูงเพื่อจัดการอีเมลได้อย่างง่ายดาย รวมถึงการตอบกลับ การสรุป การเพิ่มประสิทธิภาพ การขยาย การแปล และการเขียนอีเมล
📧 การทำงานอัตโนมัติของอีเมล: ตอบกลับอัตโนมัติ (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมล / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เตือนคุณเมื่อมีอีเมลสำคัญมาถึง / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...