كيفية طباعة جميع المرفقات في رسالة بريد إلكتروني واحدة أو عدة رسائل في Outlook؟

4. ستظهر نافذة حوار فتح مرفق البريد الإلكتروني، ويرجى النقر على زر الفتح .

يرجى ملاحظة أن هذه الخطوة ستفتح المرفق المحدد وتطبع هذا المرفق المحدد في نفس الوقت.

لطباعة المرفقات الأخرى في هذا البريد الإلكتروني، يرجى تكرار الخطوة 2 إلى الخطوة 4.

حفظ/تصدير سريع لجميع المرفقات من عدة رسائل في Outlook

عادةً يمكننا حفظ المرفقات من بريد إلكتروني واحد عن طريق تفعيل أدوات المرفقات واستخدام ميزة حفظ جميع المرفقات في Outlook. لكن ماذا لو أردنا حفظ المرفقات من عدة رسائل أو من مجلد البريد بالكامل في Outlook؟ جرب ميزة حفظ الكل (المرفقات) في Kutools for Outlook.

استمتع الآن بالنسخة المجانية من أدوات Kutools لـ Outlook والتي تشمل أكثر من 100 ميزة، و70+ ميزة مجانية مدى الحياة!

طباعة دفعية لجميع المرفقات في رسالة بريد إلكتروني واحدة

إذا كان هناك العديد من المرفقات في رسالة بريد إلكتروني واحدة، سيكون من المستهلك للوقت طباعتها واحدة تلو الأخرى. وسترشدك الطريقة التالية خلال عملية طباعة دفعية لجميع المرفقات في رسالة البريد الإلكتروني المحددة بسهولة.

1. حدد رسالة البريد الإلكتروني التي ستطبع مرفقاتها لاحقًا.

2. في Outlook 2010 أو الإصدارات الأحدث، يرجى النقر على ملف > طباعة > خيارات الطباعة. انظر إلى لقطة الشاشة التالية:

3. في مربع الحوار الطباعة، يرجى تحديد خيار طباعة الملفات المرفقة. سيتم طباعة المرفقات على الطابعة الافتراضية فقط في قسم خيارات الطباعة.

4. انقر على زر الطباعة.

5. في نافذة الحوار فتح مرفق البريد الإلكتروني المنبثقة، يرجى النقر على زر الفتح للمتابعة. (ملاحظة: ستظهر هذه النافذة لكل مرفق على حدة.)

الآن سيتم طباعة جميع المرفقات في رسالة البريد الإلكتروني المحددة مرة واحدة.

طباعة دفعية لجميع المرفقات والصور في عدة رسائل محددة

لطباعة جميع المرفقات في عدة رسائل وكذلك جميع الصور الموجودة في نص الرسالة في Outlook، يرجى اتباع الخطوات التالية لتطبيق كود VBA.

1. في قائمة البريد، يرجى الضغط مع الاستمرار على مفاتيح Ctrl أو Shift لتحديد عدة رسائل سيتم طباعة مرفقاتها.

2. اضغط معًا على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

3. في نافذة Microsoft Visual Basic for Applications، انقر على أدوات > مراجع. ثم تحقق من خيار Microsoft Scripting Runtime كما هو موضح أدناه. بمجرد الانتهاء، انقر على موافق.

4. انقر على إدراج > وحدة، ثم ألصق الكود التالي VBA في نافذة الوحدة الجديدة.

VBA: طباعة جميع المرفقات في عدة رسائل Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. اضغط على مفتاح F5 أو انقر على زر التشغيل لتشغيل هذا الكود VBA. الآن سترى أن جميع المرفقات في الرسائل المحددة والصور الموجودة في نص الرسالة قد تم طباعتها.

ملاحظة:

• كل صورة ستظهر مربع حوار منبثق لطلب تأكيدك للطباعة. بينما سيتم طباعة أنواع الملفات الأخرى مباشرة.
• إذا كانت هناك صور في توقيع البريد الإلكتروني، فسيتم أيضًا عرض مربعات حوار منبثقة لها.
• إذا ظهرت لك رسالة خطأ "الوحدات النمطية في هذا المشروع معطلة"، يرجى الاطلاع على هذا البرنامج التعليمي: كيفية تفعيل وإلغاء تفعيل الوحدات النمطية في Outlook؟

طباعة دفعية لجميع المرفقات في عدة رسائل محددة باستثناء الصور الموجودة في النص

لطباعة المرفقات فقط في عدة رسائل ولكن ليس الصور الموجودة في نص الرسالة في Outlook، يرجى اتباع الخطوات التالية لتطبيق كود VBA.

1. في قائمة البريد، يرجى الضغط مع الاستمرار على مفاتيح Ctrl أو Shift لتحديد عدة رسائل سيتم طباعة مرفقاتها.

2. اضغط معًا على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

3. في نافذة Microsoft Visual Basic for Applications، انقر على أدوات > مراجع. ثم تحقق من خيار Microsoft Scripting Runtime كما هو موضح أدناه. بمجرد الانتهاء، انقر على موافق.

4. انقر على إدراج > وحدة، ثم ألصق الكود التالي VBA في نافذة الوحدة الجديدة.

VBA: طباعة جميع المرفقات في عدة رسائل Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5. اضغط على مفتاح F5 أو انقر على زر التشغيل لتشغيل هذا الكود VBA. الآن سترى أن جميع المرفقات في الرسائل المحددة قد تم طباعتها.

ملاحظة:

• كل صورة مرفقة ستظهر مربع حوار منبثق لطلب تأكيدك للطباعة. بينما سيتم طباعة أنواع الملفات الأخرى مباشرة.
• الصور الموجودة في نص الرسالة لن يتم طباعتها.
• إذا ظهرت لك رسالة خطأ "الوحدات النمطية في هذا المشروع معطلة"، يرجى الاطلاع على هذا البرنامج التعليمي: كيفية تفعيل وإلغاء تفعيل الوحدات النمطية في Outlook؟

عرض: طباعة مرفق واحد أو جميع المرفقات في بريد إلكتروني Outlook

---

أفضل أدوات تعزيز الإنتاجية في المكتب

خبر عاجل: Kutools لـ Outlook يطلق إصدارًا مجانيًا!

جرب الإصدار الجديد كليًا من Kutools لـ Outlook مع أكثر من100 ميزة مذهلة! انقر لتنزيل الآن!

🤖 Kutools AI : يستخدم تكنولوجيا الذكاء الاصطناعي المتقدمة للتعامل مع البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء رسائل البريد الإلكتروني.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد الإلكتروني / نسخة تلقائية/مخفية بناءً على القاعدة عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم تلقائي لرسائل البريد الإلكتروني متعددة المستلمين إلى رسائل فردية ...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...

📁 إعدادات المرفقات الاحترافية: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...

🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة دفعة لجهات الاتصال من البريد الإلكتروني المحدد / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!

افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!

جدول أحادي الأبعاد لميزات Kutools لـ Outlook تنزيل الآن انتقل للشراء

🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بقوة: Kutools لـ Office (خمسة في واحد)

بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!

• ✅ سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
• 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
• 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint

حول الحزمة ⬇ تنزيل الحزمة 💳 شراء الحزمة