يوفر لنا Microsoft Outlook ملفات طباعة سريعة التي يمكن أن تساعدك في طباعة المرفقات في رسالة بريد إلكتروني واحدة تلو الأخرى.

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

2. انقر فوق مرفق واحد في هذا البريد الإلكتروني.

3. انقر على طباعة سريعة زر في الإجراءات مجموعة على مرفقات علامة التبويب.

لاحظ ال أدوات المرفقات لن يتم تنشيطه حتى تنقر على المرفقات في رسائل البريد الإلكتروني.

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

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

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

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

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

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

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

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

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

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

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

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

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

1. في القائمة البريدية ، يرجى الضغط CTRL or تغير مفاتيح لتحديد رسائل بريد إلكتروني متعددة ستتم طباعة مرفقاتها.

2. صحافة قديم + F11 مفاتيح معًا لفتح نافذة Microsoft Visual Basic for Applications.

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

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 مفتاح أو انقر فوق يجري زر لتشغيل رمز فبا هذا. سترى الآن أن جميع المرفقات في رسائل البريد الإلكتروني المحددة والصور الموجودة في نص الرسالة قد تم طباعتها.

ملحوظة:

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

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

1. في القائمة البريدية ، يرجى الضغط CTRL or تغير مفاتيح لتحديد رسائل بريد إلكتروني متعددة ستتم طباعة مرفقاتها.

2. صحافة قديم + F11 مفاتيح معًا لفتح نافذة Microsoft Visual Basic for Applications.

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

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 مفتاح أو انقر فوق يجري زر لتشغيل رمز فبا هذا. الآن سترى أن جميع المرفقات في رسائل البريد الإلكتروني المحددة قد تم طباعتها.

ملحوظة:

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