นับจำนวนไฟล์แนบทั้งหมดในอีเมลที่เลือกด้วย VBA

ส่งออกและนับไฟล์แนบในอีเมลที่เลือกด้วย Kutools for Outlook

นับจำนวนไฟล์แนบทั้งหมดในอีเมลหลายฉบับด้วยการบันทึกไฟล์แนบเหล่านี้ก่อนอื่นใน Outlook

วิธีนี้จะแนะนำ VBA เพื่อนับจำนวนไฟล์แนบทั้งหมดในอีเมลที่เลือกใน Outlook กรุณาดำเนินการดังนี้:

1. เลือกอีเมลที่มีไฟล์แนบที่คุณจะนับจากนั้นกดปุ่ม อื่น ๆ + F11 คีย์พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูลการเปิด

VBA: นับจำนวนไฟล์แนบในอีเมลที่เลือก

Sub CountAttachmentsMulti()
Dim oItem As Object
Dim iAttachments As Integer

For Each oItem In ActiveExplorer.Selection
iAttachments = oItem.Attachments.Count + iAttachments
Next
MsgBox "Selected " & ActiveExplorer.Selection.Count & " messages with " & iAttachments & " attachements"

End Sub

3 กด F5 หรือคลิกปุ่ม วิ่ง เพื่อเรียกใช้ VBA นี้

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

หากคุณติดตั้ง Kutools for Outlook คุณสามารถใช้ไฟล์ ปลดทั้งหมด (ไฟล์แนบ) เพื่อส่งออกไฟล์แนบทั้งหมดจากอีเมลที่เลือกหลายฉบับจากนั้นนับไฟล์แนบที่ส่งออกได้อย่างง่ายดาย กรุณาดำเนินการดังนี้:

1. เลือกอีเมลที่มีไฟล์แนบที่คุณจะส่งออกและนับจากนั้นคลิก Kutools > ผลิตภัณฑ์อื่นๆ > ปลดทั้งหมด. ดูภาพหน้าจอ:

2. กล่องโต้ตอบจะปรากฏขึ้นและขอให้คุณยืนยันอีกครั้งเกี่ยวกับการถอดไฟล์แนบ กรุณาคลิกที่ไฟล์ ใช่ เพื่อดำเนินการต่อ

3. ในกล่องโต้ตอบเปิดเรียกดูโฟลเดอร์โปรดระบุโฟลเดอร์ที่คุณจะบันทึกไฟล์แนบที่ส่งออกแล้วคลิกไฟล์ OK ปุ่ม

และตอนนี้ไฟล์แนบทั้งหมดในอีเมลที่เลือกจะถูกส่งออกและบันทึกลงในโฟลเดอร์ปลายทาง

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

หมายเหตุ: หากอีเมลหนึ่งฉบับมีไฟล์แนบมากกว่าหนึ่งไฟล์ไฟล์แนบเหล่านี้จะถูกบันทึกลงในโฟลเดอร์เดียวและตั้งชื่อตามหัวเรื่องของอีเมลนี้

นับจำนวนผู้รับในฟิลด์ To, Cc และ Bcc ใน Outlook

นับจำนวนอีเมลตามผู้ส่งใน Outlook

นับจำนวนอีเมลที่เลือกทั้งหมดใน Outlook