Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

วิธีส่งต่อไฟล์แนบอัตโนมัติตามเกณฑ์เฉพาะใน 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

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

เอกสารแนบไปข้างหน้าอัตโนมัติเพียง 1

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

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

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


Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest · 1 years ago
    This is great, but if someone replies to the chain of the email with an attachment it will auto-forward that attachment as well. Is there a way to avoid this? Thanks