كيفية طباعة جميع المرفقات في بريد إلكتروني واحد / متعدد في Outlook؟
كما تعلم ، سيتم فقط طباعة محتوى البريد الإلكتروني مثل الرأس والجسم عند النقر فوق ملف قم بتقديم > طباعة في Microsoft Outlook ، ولكن لا تطبع المرفقات. سنوضح لك هنا كيفية طباعة جميع المرفقات في بريد إلكتروني محدد بسهولة في Microsoft Outlook.
- اطبع جميع المرفقات في رسالة بريد إلكتروني واحدة تلو الأخرى
- اطبع جميع المرفقات دفعة واحدة في رسالة بريد إلكتروني واحدة
- اطبع جميع المرفقات والصور دفعة واحدة في رسائل بريد إلكتروني متعددة محددة
- قم بطباعة جميع المرفقات دفعة واحدة في رسائل بريد إلكتروني متعددة محددة باستثناء الصور الموجودة في النص الأساسي
اطبع جميع المرفقات في رسالة بريد إلكتروني واحدة تلو الأخرى
يوفر لنا 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؟
عرض توضيحي: اطبع أحد المرفقات أو جميعها في بريد إلكتروني في Outlook
معلومه- سرية: في هذا الفيديو، كوتولس تمت إضافة علامة التبويب بواسطة كوتولس لتوقعات. إذا كنت في حاجة إليها ، الرجاء الضغط هنا للحصول على نسخة تجريبية مجانية لمدة 60 يومًا دون قيود!
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.