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

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

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

---

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

1. حدد رسالة البريد الإلكتروني التي تريد طباعة نصها فقط، ثم اضغط على مفاتيحAlt+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

3. انقر فوقأدوات > المراجعلفتح مربع حوارالمراجع– المشروع 1، ثم ضع علامة في خانة الاختيار الخاصة بـMicrosoft Word 16.0 Object Library. بعد ذلك، انقر فوقموافق.

 

4-1. ابقَ المؤشر داخل الكود، ثم اضغطF5 أو انقر فوق زرتشغيللتنفيذ الكود، وسيتم طباعة البريد الإلكتروني دون الصور فورًا عبر Word. ولكن إذا لم يكن جهازك متصلًا بطابعة، يُرجى اتباع الخطوة 4.

4-2. عندما لا يحتوي جهازك على طابعة، وبعد الضغط علىF5 أو النقر فوق زرتشغيللتنفيذ الكود، ستظهر نافذة منبثقة تتيح لك اختيار مجلد لحفظ ملف PDF فيه وتعيين اسم له. انقر فوقحفظ.

 

لقد تم الآن تصدير البريد الإلكتروني كملف PDF دون الصور. افتح ملف PDF، ثم انقر بزر الماوس الأيمن وحددطباعةلطباعة البريد الإلكتروني.

تلميح: إذا كنت ترغب في حفظ رسائل بريد إلكتروني محددة دفعة واحدة كملفات PDF (أو Word أو CSV أو Excel أو TXT أو HTML) مع الصور والرؤوس والمحتوى وحقول CC، فإن ميزةالحفظ الدفعيفيKutools لـ Outlookيمكنها مساعدتك—وبكل سهولة في 3 خطوات فقط!

1. حدد رسائل البريد الإلكتروني.

2. انقرKutools > الحفظ الدفعي.

3. اختر الموقع الذي تريده، وحدد التنسيق (أو التنسيقات) المناسبة، ثم انقر فوق «موافق».