انتقل إلى المحتوى الرئيسي

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

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

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

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

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


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

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

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

2. في ال Save Print Output As مربع حوار ، حدد مسارًا واحدًا لوضع الملف ، وقم بتسميته.
doc دفعة تحويل البريد الإلكتروني إلى pdf 2

3. انقر Save، ثم انقر Cancel لإيقاف الطباعة.
doc دفعة تحويل البريد الإلكتروني إلى pdf 3

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

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


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

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

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

2. انقر Insert > Module، والصق الكود أدناه في ملف Module النصي.

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

doc دفعة تحويل البريد الإلكتروني إلى pdf 4

3. صحافة F5 لتمكين مربع حوار حفظ الملف، حدد مجلدًا لوضع الملف وإعطائه اسمًا.
doc دفعة تحويل البريد الإلكتروني إلى pdf 5

4. انقر Save.

معلومه- سرية: إذا تعذر تشغيل الكود، فيمكنك محاولة الانتقال إلى مركز التوثيق للتحقق من خيار تمكين كافة وحدات الماكرو في قسم إعدادات الماكرو.
doc دفعة تحويل البريد الإلكتروني إلى pdf 6


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

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

Kutools for Outlook, ويشمل  ميزات وأدوات قوية لبرنامج Microsoft Outlook 2016 و 2013 و 2010 و Office 365.

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

1. حدد رسائل البريد الإلكتروني التي تريد تحويلها، ثم انقر فوق Kutools > Bulk Save.
doc دفعة تحويل البريد الإلكتروني إلى pdf 7

2. في ال Save message as other files الحوار، حدد مسارًا لتحديد موقع الملف، والتحقق منه PDF خيار التنسيق، يمكنك التحقق من الخيارات المتعلقة بحفظ المحتويات في القسم الأيمن.
doc دفعة تحويل البريد الإلكتروني إلى pdf 8

3. انقر Ok.

الآن تم تحويل رسائل البريد الإلكتروني إلى ملفات PDF.
doc دفعة تحويل البريد الإلكتروني إلى pdf 10


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات بروحفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة  /  تقسيم مجموعة اتصال إلى مجموعات فردية  /  إزالة تذكير عيد ميلاد 

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations