Note: The other languages of the website are Google-translated. Back to English

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

كما تعلم ، سيتم فقط طباعة محتوى البريد الإلكتروني مثل الرأس والجسم عند النقر فوق ملف قم بتقديم > طباعة في Microsoft Outlook ، ولكن لا تطبع المرفقات. سنوضح لك هنا كيفية طباعة جميع المرفقات في بريد إلكتروني محدد بسهولة في Microsoft Outlook.


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

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

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

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

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

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

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

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

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

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

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


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

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

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

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 يومًا دون قيود!


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (23)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا مفيد جدًا ، لكن لا يساعدني في Office 365 ؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنني معرفة هذا الجزء بنفسي - ما أحاول اكتشافه هو لماذا ، على الرغم من القيام بذلك ، لن تتم طباعة المرفقات. تنبثق رسالة خطأ لكل مرفق تسألك عما إذا كنت أريد "فتح" أو "حفظ". يؤدي اختيار أي من الخيارين إلى هذه النتائج بالضبط - بمعنى آخر ، لا تزال هناك طباعة ، فقط فتح أو حفظ. لدي 20 مرفقًا من 4 رسائل بريد إلكتروني. لا أريد حقًا أن أضطر إلى فتح 80 مستندًا فقط لأتمكن من طباعتها. من الواضح أن هناك بعض إعدادات الأمان "أنقذني من نفسي" التي يجب إزالتها حتى أتمكن من استخدام جهاز الكمبيوتر الخاص بي ونظام التشغيل الذي اشتريته ودفعت ثمنه. هذا ما أريد معرفته.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
انقر نقرًا مزدوجًا على البريد الإلكتروني "منبثقًا" في حد ذاته. انقر بزر الماوس الأيمن على أحد المرفقات وانقر على "تحديد الكل" ، ثم "طباعة سريعة".
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أتفق مع ليا ، هذا لا يعمل. إنه يقوم فقط بطباعة النص الأساسي للبريد الإلكتروني والمرفق الأول ، وليس كلهم. تحتاج إلى إرشادات حول كيفية طباعتها جميعًا باستخدام خيارات "تحديد الكل" الموضحة أعلاه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كنت تريد طباعة جميع المرفقات معًا في بريد إلكتروني واحد ، فإليك ما تفعله. قم أولاً بإنشاء مجلد على سطح المكتب الخاص بك .... قمت بتسمية مجلد "طباعة". انتقل إلى البريد الإلكتروني الذي يحتوي على المرفقات .... قم بتمييز جميع المرفقات ، وانقر بزر الماوس الأيمن ، واحفظ جميع المرفقات في مجلد الطباعة. افتح مجلد الطباعة ..... حدد كل منهم ..... انقر بزر الماوس الأيمن ..... طباعة.



الآن إذا كان بإمكاني فقط معرفة كيفية طباعة جميع المرفقات في 200 بريد إلكتروني دون فتح كل واحدة وطباعتها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكن أن تساعدك ميزة Kutools for Outlook's Detach All (المرفقات) في تنزيل جميع المرفقات من رسائل بريد إلكتروني متعددة بنقرات عديدة! https://www.extendoffice.com/product/kutools-for-outlook/outlook-detach-attachments.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كان ملف pdf يحمل نفس الاسم ، فإن الماكرو يطبع ملف pdf واحدًا فقط ، كيف يمكنني تغيير الرمز لتعديل اسم pdf؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعطي رمز VBA بناء الجملة خطأ
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في السطر 9 ، عملت إزالة "عند الخطأ ، استئناف التالي" بالنسبة لي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم ، لقد نجح هذا معي أيضًا. شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكراً لك 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد كنت أستخدم هذا الاختصار لبضعة أسابيع حتى الآن ، وأطبع جميع المرفقات من رسائل بريد إلكتروني متعددة في وقت واحد ، وقد اضطررت مؤخرًا إلى إزالة السطر 9 كما قال Nilanka ، والذي كان يعمل ، لكن هذا لم يعد يعمل. أتلقى مربع التحذير الذي يشير إلى أن وحدات الماكرو في هذا المشروع معطلة ..... وما إلى ذلك ... إذا كان لدى شخص ما حل لجعل هذا العمل كما كان من قبل ، من فضلك lmk ، لأنني أختار حوالي 60 رسائل البريد الإلكتروني تحتوي جميعها على مرفقات للطباعة. شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بالجميع ، لقد قمنا بتحديث رمز VBA في البرنامج التعليمي في 2022/08/03. إذا كنت لا تزال بحاجة إلى طباعة جميع المرفقات ، فيرجى التحقق من الرمز الجديد. 😊
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد نجح هذا الأمر بشكل جيد بالنسبة لي بالأمس ولكنه الآن يقول "تم تعطيل وحدات الماكرو في هذا المشروع". هل من نصيحة حول كيفية تمكينها؟ 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فيلين ، فيلين دانك دافور! Hat uns الهائل Arbeit erspart.Auch ich musste - wie bereits in den Kommentaren geschrieben - die neunte Zeile "Dim xAttachment As Outlook.Attachment On Error Resume Next" entfernen، dann lief der Code einfandfrei durch.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلا ، ich möchte nur den Anhang der Mails von der angegebenen Adresse senden، wie kann ich das machen، danke
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أستخدم Microsoft 365 وقد نجح ذلك بعد حذف السطر 9. شكرًا! لقد وفر هذا بعض الوقت بالنسبة لي.
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي جميع،

لقد جربت VBA ويتم تشغيل الكود ولكن العديد من النوافذ المنبثقة تفتح على الشاشة لطباعة الصور من توقيع البريد (على ما يبدو يعتبر هذا مرفقًا). أي شخص يعرف كيف يحلها؟

S.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هناك،

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

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

شكرا لك على الكود. انها عملت!

S.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL