Outlook: كيفية طباعة البريد الإلكتروني بدون صور

بشكل عام طباعة بريد إلكتروني في Outlook ، ستتم طباعة الصور أيضًا. لكن في بعض الأحيان ، تريد فقط طباعة النصوص بدون الصور ، ومع ذلك ، في Outlook ، لا توجد ميزة مضمنة يمكنها دعم هذه المهمة. يوفر هذا البرنامج التعليمي رمز VBA الذي سيطبع البريد الإلكتروني الخالي من الصور من خلال Word على الفور. أو عندما لا يحتوي جهاز الكمبيوتر الخاص بك على طابعة ، سيقوم رمز VBA بتصدير البريد الإلكتروني كملف PDF بدون صور أولاً ، وبعد ذلك يمكنك طباعة ملف PDF بعد توفر الطابعة.

VBA لطباعة البريد الإلكتروني بدون صور

علامة تبويب Office - تمكين التحرير والتصفح المبوب في Microsoft Office، مما يجعل العمل سهلاً

اقرأ أكثر...تحميل...

Kutools for Outlook - عزز Outlook بأكثر من 100 ميزة متقدمة لتحقيق كفاءة فائقة

أتمتة البريد الإلكتروني مع CC السيارات / BCC, إعادة توجيه تلقائي بالقواعد؛ يرسل رد آلي (خارج المكتب) دون الحاجة إلى خادم تبادل...
احصل على تذكيرات مثل تحذير BCC عند الرد على الكل أثناء تواجدك في قائمة نسخة مخفية الوجهة، و تذكير عند فقدان المرفقات للمرفقات المنسية..
تحسين كفاءة البريد الإلكتروني مع الرد (الكل) مع المرفقات, إضافة تحية أو التاريخ والوقت تلقائيًا إلى التوقيع أو الموضوع, الرد على رسائل البريد الإلكتروني المتعددة
تبسيط البريد الإلكتروني مع استدعاء رسائل البريد الإلكتروني, أدوات المرفقات (ضغط الكل، حفظ الكل تلقائيًا...)، إزالة التكراراتو تقرير سريع

عزز Outlook 2021 - 2010 أو Outlook 365 الخاص بك باستخدام هذه الميزات المتقدمة. استمتع بتجربة مجانية شاملة مدتها 60 يومًا وارفع مستوى تجربة بريدك الإلكتروني!

اقرأ أكثر...تحميل...

VBA لطباعة البريد الإلكتروني بدون صور

1. حدد بريدًا إلكترونيًا تريد طباعة النص فقط ، ثم اضغط على قديم + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة لإنشاء وحدة فارغة جديدة ، ثم انسخ الكود أدناه والصقه في الوحدة النمطية.

VBA: تصدير البريد الإلكتروني بدون صور

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub