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

Author: Sun Last Modified: 2025-05-30

في Outlook، يمكن لخاصية حفظ باسم فقط أن تحفظ البريد الإلكتروني بتنسيق HTML أو TXT أو MHT أو MSG وملف قالب. إذا كنت ترغب في تحويل البريد الإلكتروني إلى ملف PDF، كيف يمكنك القيام بذلك؟ في هذه المقالة، سأقدم بعض الحيل لحل هذه المشكلة.

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

تحويل عدة رسائل بريد إلكتروني إلى ملفات PDF منفصلة باستخدام أداة حفظ كملف

تحويل بريد إلكتروني واحد إلى ملف PDF باستخدام VBA

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

في Outlook، يمكنك استخدام خاصية الطباعة لحفظ بريد إلكتروني واحد كملف PDF.

1. حدد البريد الإلكتروني الذي تريد تحويله إلى PDF، انقر فوق ملف > طباعة، اختر Microsoft Print to PDF من قائمة الطابعات المنسدلة، ثم انقر فوق طباعة.

2. في مربع حوار حفظ مخرجات الطباعة باسم، حدد مسارًا لوضع الملف وأعطه اسمًا.

3. انقر فوق حفظ، ثم انقر فوق إلغاء لإيقاف الطباعة.

الآن تم تحويل الرسالة المحددة إلى ملف PDF.

ملاحظة: تعمل هذه الطريقة فقط في Outlook 2016.

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

ردود ذكية: احصل على ردود مصممة من محادثاتك السابقة - مخصصة، دقيقة وجاهزة للإرسال.
تحسين المحتوى: قم بتحسين نصوص البريد الإلكتروني تلقائيًا لتحقيق الوضوح والتأثير.
الكتابة السهلة: فقط قدم الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع أساليب كتابة متعددة.
التوسعات الذكية: قم بتوسيع أفكارك باقتراحات تعتمد على السياق.
الملخصات: احصل على ملخصات مختصرة للرسائل الطويلة فورًا.
التواصل العالمي: قم بترجمة رسائل البريد الإلكتروني إلى أي لغة بسهولة.

هذه الميزة تدعم:

ردود البريد الإلكتروني الذكية
المحتوى المُحسّن
المسودات المستندة إلى الكلمات المفتاحية
التوسع الذكي للمحتوى
تلخيص البريد الإلكتروني
الترجمة متعددة اللغات

الأفضل من كل هذا، هذه الميزة مجانية تمامًا للأبد! لا تنتظر—حمّل مساعد البريد الإلكتروني الذكي الآن واستمتع

تحويل عدة رسائل بريد إلكتروني إلى ملفات PDF منفصلة باستخدام أداة حفظ كملف

مع الطرق المذكورة أعلاه، يمكنك فقط حفظ رسالة واحدة كملف PDF في كل مرة. إذا كنت ترغب في تحويل عدة رسائل بريد إلكتروني إلى ملفات PDF منفصلة دفعة واحدة، يمكنك تجربة أداة Kutools for Outlook’s Save Selected Messages as Files in Vavrious Formats like PDF .

👉 يتوفر الآن إصدار مجاني من أدوات Kutools لـ Outlook، حيث تكون 70+ الميزات مجانية مدى الحياة. قم بتنزيل الإصدار المجاني الآن.

قم بتثبيت Kutools for Outlook مجانًا، ثم اتبع الخطوات التالية:

1. حدد الرسائل التي تريد تحويلها، ثم انقر فوق أدوات Kutools > المعالجة بالجملة >Save Selected Messages as Files in Vavrious Formats like PDF.

2. في مربع حوار حفظ الرسالة كملفات أخرى، حدد مسارًا لتحديد موقع الملف، وحدد خيار تنسيق PDF، ويمكنك اختيار الخيارات المتعلقة بحفظ النصوص في القسم الأيمن.

3. انقر فوق موافق.

الآن تم تحويل الرسائل إلى ملفات PDF.

تحويل بريد إلكتروني واحد إلى ملف PDF باستخدام VBA

إذا كنت تعمل على Outlook 2007 أو 2010، يمكنك تطبيق كود VBA لتحويل بريد إلكتروني واحد إلى ملف PDF.

1. حدد بريد إلكتروني واحد، واضغط على مفتاح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود أدناه في نص الوحدة.

VBA: تحويل البريد الإلكتروني إلى PDF

Sub SaveAsPDFfile()
'UpdatebyExtendoffice
Dim MyOlNamespace As NameSpace
Dim MySelectedItem As MailItem
Dim Response As String
Dim FSO As Object, TmpFolder As Object
Dim tmpFileName As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim bStarted As Boolean
Dim dlgSaveAs As FileDialog
Dim fdfs As FileDialogFilters
Dim fdf As FileDialogFilter
Dim i As Integer
Dim WshShell As Object
Dim SpecialPath As String
Dim msgFileName As String
Dim strCurrentFile As String
Dim strName As String
Dim oRegEx As Object
Dim intPos As Long
Set MyOlNamespace = Application.GetNamespace("MAPI")
Set MySelectedItem = ActiveExplorer.Selection.Item(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
tmpFileName = FSO.GetSpecialFolder(2)
strName = "email_temp.mht"
tmpFileName = tmpFileName & "\" & strName
MySelectedItem.SaveAs tmpFileName, 10
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err Then
Set wrdApp = CreateObject("Word.Application")
bStarted = True
End If
On Error GoTo 0
Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False, Format:=7)
Set dlgSaveAs = wrdApp.FileDialog(msoFileDialogSaveAs)
Set fdfs = dlgSaveAs.Filters
i = 0
For Each fdf In fdfs
i = i + 1
If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then
Exit For
End If
Next fdf
dlgSaveAs.FilterIndex = i
Set WshShell = CreateObject("WScript.Shell")
SpecialPath = WshShell.SpecialFolders(16)
msgFileName = MySelectedItem.Subject
Set oRegEx = CreateObject("vbscript.regexp")
oRegEx.Global = True
oRegEx.Pattern = "[\/:*?""<>|]"
msgFileName = Trim(oRegEx.Replace(msgFileName, ""))
dlgSaveAs.InitialFileName = SpecialPath & "\" & msgFileName
If dlgSaveAs.Show = -1 Then
strCurrentFile = dlgSaveAs.SelectedItems(1)
If Right(strCurrentFile, 4) <> ".pdf" Then
Response = MsgBox("Sorry, only saving in the pdf-format is supported." & _
vbNewLine & vbNewLine & "Save as pdf instead?", vbInformation + vbOKCancel)
If Response = vbCancel Then
wrdDoc.Close 0
If bStarted Then wrdApp.Quit
Exit Sub
ElseIf Response = vbOK Then
intPos = InStrRev(strCurrentFile, ".")
If intPos > 0 Then
strCurrentFile = Left(strCurrentFile, intPos - 1)
End If
strCurrentFile = strCurrentFile & ".pdf"
End If
End If
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
strCurrentFile, _
ExportFormat:=17, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=0, _
From:=0, _
To:=0, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End If
Set dlgSaveAs = Nothing
wrdDoc.Close
If bStarted Then wrdApp.Quit
Set MyOlNamespace = Nothing
Set MySelectedItem = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Set oRegEx = Nothing
End Sub

3. اضغط على مفتاح F5 لفتح مربع حوار حفظ الملف، حدد مجلدًا لوضع الملف وأعطه اسمًا.