كيفية الحصول على قائمة بمعلومات المرفقات في البريد المحدد في Outlook؟
بالنسبة للرسائل الإلكترونية المستلمة التي تحتوي على مرفقات، قد تحتاج أحيانًا إلى معرفة التفاصيل الدقيقة للمرفقات، مثل اسم العرض، واسم الملف وما إلى ذلك. في الواقع، يمكن أن يساعدك كود VBA بسهولة في الحصول على قائمة بمعلومات المرفقات في البريد الإلكتروني المحدد حاليًا في Outlook. يرجى الاطلاع على البرنامج التعليمي أدناه لمزيد من التفاصيل.
الحصول على قائمة بمعلومات المرفقات في البريد المحدد في Outlook
- عزز إنتاجيتك في البريد الإلكتروني بتقنية الذكاء الاصطناعي، مما يتيح لك الرد بسرعة على رسائل البريد الإلكتروني، وصياغة رسائل جديدة، وترجمة الرسائل، والمزيد بفعالية أكبر.
- أتمتة البريد الإلكتروني باستخدام نسخة تلقائية/مخفية، التحويل التلقائي بالقواعد؛ إرسال رد تلقائي (خارج المكتب) دون الحاجة إلى خادم Exchange...
- احصل على تذكيرات مثل تنبيه عند الرد على بريد إلكتروني يحتوي على اسمي في نسخة مخفية (BCC)، وتذكير عند نسيان المرفقات للمرفقات المنسية...
- تحسين كفاءة البريد الإلكتروني باستخدام الرد (على الكل) مع المرفقات، إضافة تلقائية للتحية أو التاريخ والوقت إلى التوقيع أو الموضوع، الرد على رسائل متعددة...
- تبسيط البريد الإلكتروني باستخدام استدعاء البريد الإلكتروني، أدوات المرفقات (ضغط الكل، حفظ تلقائي للكل...), حذف الرسائل المكررة، وتقرير سريع...
الحصول على قائمة بمعلومات المرفقات في البريد المحدد في Outlook
1. حدد البريد الإلكتروني الذي يحتوي على المرفقات والذي تريد الحصول على معلوماتها.
2. اضغط على مفتاحي Alt + F11 على لوحة المفاتيح لفتح نافذة Microsoft Visual Basic for Applications.
3. بعد ذلك، انقر نقرًا مزدوجًا فوق Project1 > Microsoft Outlook Object > ThisOutlookSession لفتح نافذة 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. الآن ستظهر نافذة حوار Macros، يرجى النقر فوق زر التشغيل.
7. بعد النقر على زر التشغيل في نافذة حوار Macros، سيتم إنشاء نافذة رسالة جديدة مع جميع معلومات المرفقات الخاصة بالبريد الإلكتروني المحدد والمدرجة داخل نص البريد. شاهد لقطة الشاشة:
ملاحظة: يمكن تطبيق هذا الكود VBA على Outlook 2007 و2010 و2013.
أفضل أدوات الإنتاجية لمجموعة Office
خبر عاجل: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!
جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية حسب القواعد عند الإرسال / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية ...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوعات وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات ...
📁 المرفقات الاحترافية: حفظ دفعي / فصل دفعي / ضغط دفعي / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...
🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تنبيهك عند وصول رسائل هامة / تصغير Outlook بدلاً من الإغلاق ...
👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / رسائل البريد الإلكتروني المضادة للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة جهات اتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...
افتح أدوات Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتحميل الآن وزد من إنتاجيتك!

