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

วิธีรับรายการข้อมูลไฟล์แนบในเมลที่เลือกใน Outlook

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2014-09-25

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

รับรายการข้อมูลสิ่งที่แนบมาในจดหมายที่เลือกใน Outlook

Office Tab - เปิดใช้งานการแก้ไขแบบแท็บและการเรียกดูใน Microsoft Office ทำให้งานเป็นเรื่องง่าย
ปลดล็อก Kutools สำหรับ Outlook ฟรี รุ่น ตอนนี้และเพลิดเพลินกับคุณสมบัติมากกว่า 70 รายการพร้อมการเข้าถึงไม่จำกัดตลอดไป
เพิ่มประสิทธิภาพ Outlook 2021 - 2010 หรือ Outlook 365 ของคุณด้วยฟีเจอร์ขั้นสูงเหล่านี้ เพลิดเพลินไปกับฟีเจอร์อันทรงพลังมากกว่า 70+ รายการและยกระดับประสบการณ์อีเมลของคุณ!

ลูกศรสีฟ้าฟองขวารับรายการข้อมูลสิ่งที่แนบมาในจดหมายที่เลือกใน Outlook

1. เลือกอีเมลพร้อมไฟล์แนบที่คุณต้องการรับข้อมูล

2 กด อื่น ๆ + F11 บนแป้นพิมพ์เพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. จากนั้นดับเบิลคลิกที่ไฟล์ Project1 > วัตถุ Microsoft Outlook > นี้OutlookSession เพื่อเปิด Project1 - ThisOutlookSession หน้าต่าง. ดูภาพหน้าจอ:

4. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่าง Project1 - ThisOutlookSession

รหัส VBA: รับรายการข้อมูลสิ่งที่แนบมา

Option Explicit
Public Sub GetAttachmentList()
    Dim selItem As Object
    Dim aMail As MailItem
    Dim aAttach As attachment
    Dim Report As String
    
    For Each selItem In Application.ActiveExplorer.Selection
        If selItem.Class = olMail Then
            Set aMail = selItem
            For Each aAttach In aMail.Attachments
                Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
                Report = Report & GetAttachmentInfo(aAttach)
            Next
            Call CreateReportEmail("Attachment Report", Report)
        End If
    Next
End Sub
 
Public Function GetAttachmentInfo(attachment As attachment)
    Dim Report
    GetAttachmentInfo = ""
    Report = Report & "Index: " & attachment.Index & vbCrLf
    Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
    Report = Report & "File Name: " & attachment.FileName & vbCrLf
    Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
    Report = Report & "Path Name: " & attachment.PathName & vbCrLf
    Report = Report & "Position: " & attachment.Position & vbCrLf
    Report = Report & "Size: " & attachment.Size & vbCrLf
    Report = Report & "Type: " & attachment.Type & vbCrLf
    
    GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub 

5 กด F5 บนแป้นพิมพ์เพื่อเรียกใช้รหัส VBA

6. ตอนนี้ก แมโคร กล่องโต้ตอบปรากฏขึ้นโปรดคลิกที่ไฟล์ วิ่ง ปุ่ม

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

หมายเหตุ: รหัส VBA นี้สามารถใช้ได้กับ Outlook 2007, 2010 และ 2013


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

ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!

สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!

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

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

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

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

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

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

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

ปลดล็อค Kutools for Outlook ทันทีด้วยการคลิกเพียงครั้งเดียว—ฟรีอย่างถาวร- อย่ารอช้า ดาวน์โหลดตอนนี้และเพิ่มประสิทธิภาพของคุณ!

kutools สำหรับคุณสมบัติ Outlook1 kutools สำหรับคุณสมบัติ Outlook2
 

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi - I'm trying to figure out a way to set an automatic response which lists all the attachments they have sent. If this can include a file index for folders that would also be brilliant.


Basically - we receive emails with document submissions, I already have an automatic response set up to thank them for their submission but if this could now include "the documents you submitted are as below:... etc" that would help massively.


If somebody could help with this that would be brilliant! Thanks!
This comment was minimized by the moderator on the site
Hello. can you imagine any possibility to fetch/open a specific attachment directly from your list (e.g. a link embedded). Thank You in advance Sandra
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations