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

في Outlook، يمكنك طباعة الرسائل الإلكترونية، ولكن هل سبق أن طبعت المرفقات فقط من رسالة بريد إلكتروني واحدة أو من عدة رسائل محددة؟ في هذه المقالة، أقدّم لك الحيل الذكية التي تساعدك على تنفيذ هذه المهمة بسهولة.

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

طباعة المرفقات فقط من رسائل محددة باستخدام VBA

---

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

لطباعة المرفقات فقط دون نص الرسالة، استخدم وظيفة الطباعة السريعة.

1. في نافذة الرسالة، انقر بزر الماوس الأيمن على المرفق الذي ترغب في طباعته، ثم اختر «طباعة سريعة» من القائمة المنبثقة.

2. بعد ذلك، انقر على «حفظ» > «حفظ» لحفظ ملف المرفق في الموقع المحدد.

3. انتقل الآن إلى الموقع الذي حفظت فيه ملف المرفق، وافتحه لطباعته كالمعتاد.

---

طباعة المرفقات فقط من رسائل محددة باستخدام VBA

إذا كنت ترغب في طباعة المرفقات من رسائل معيّنة، يمكنك استخدام كود VBA.

1. حدد الرسائل التي ترغب في طباعة مرفقاتها، ثم اضغط على مفتاحَي «Alt» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».

2. انقر مرتين على «ThisOutlookSession» في جزء "Project1"، ثم انسخ والصق الكود أدناه في النص البرمجي.

VBA: طباعة المرفقات من رسائل محددة

Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
    xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count = 0 Then Exit Sub
        Set xAttachments = xMailItem.Attachments
        For Each xAttachment In xAttachments
            xFilePath = xTmpFldPath & "\" & xAttachment.FileName
            xAttachment.SaveAsFile (xFilePath)
            Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
            xTempFolderItem.InvokeVerbEx ("print")
        Next
    End If
Next

'If xFSO.FolderExists(xTmpFldPath) Then
'    xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub

3. بعد ذلك، انقر على «أدوات» > «المراجع»، ثم في مربع حوار «المراجع»، فعّل خانة الاختيار «Microsoft Scripting Runtime».
  

4. انقر على «موافق»، ثم اضغط مفتاح "F5" لطباعة جميع المرفقات في الرسائل المحددة دفعةً واحدة.

ملاحظة: إذا كان المرفق صورة، فسيظهر أولاً مربع حوار «طباعة الصور». انقر على «طباعة» للانتقال إلى مربع حوار «حفظ الإخراج المطبوع باسم».