كيفية طباعة جميع المرفقات في رسالة بريد إلكتروني واحدة أو عدة رسائل في 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

---

أفضل أدوات الإنتاجية لمجموعة Office

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

جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!

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

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

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

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

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

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

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

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

قائمة ميزات أدوات Kutools لـ Outlook تحميل الإصدار المجاني الترقية إلى الإصدار الاحترافي