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

كيف تحفظ رسالة البريد الإلكتروني بتنسيق صورة (jpg / tiff) في Outlook؟

هل سبق لك أن حاولت حفظ رسالة بريد إلكتروني كصورة مثل jpg أو tiff picture في Outlook؟ ستوضح لك هذه المقالة طريقة لحل هذه المشكلة.

احفظ رسالة البريد الإلكتروني بتنسيق صورة باستخدام كود VBA


احفظ رسالة البريد الإلكتروني بتنسيق صورة باستخدام كود VBA

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

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

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > المستخدم. انظر لقطة الشاشة:

3. إنشاء المستخدم كما هو موضح أدناه لقطة الشاشة.

4. حدد خيار jpg زر وتغيير اسمه إلى opbJPG في اليسار عقارات الجزء.

5. كرر الخطوة 4 أعلاه لإعادة تسمية زر الخيارات الأخرى باسم com.opbTIFF. وأعد تسمية ملف OK زر الأمر و إلغاء زر الأمر باسم موافق و cdbCancel بشكل منفصل.

ملاحظات: إذا كان عقارات لا يظهر الجزء في ميكروسوفت فيسوال باسيك للتطبيقات النافذة ، الرجاء النقر فوق F4 مفتاح لإحضار الجزء.

6. انقر نقرًا مزدوجًا فوق أي مساحة فارغة في نموذج المستخدم لفتح ملف رمز نافذة او شباك. استبدل كل التعليمات البرمجية بنص VBA النصي التالي. ثم أغلق نافذة الكود.

كود فبا 1: حفظ رسالة البريد الإلكتروني كصورة

Option Explicit
'Update by Extendoffice 2018/3/5
Public xRet As Boolean
Private Sub cdbCancel_Click()
  xRet = False
  FrmPicType.Hide
End Sub
Private Sub cdbOk_Click()
  xRet = True
  FrmPicType.Hide
End Sub

7. حدد نموذج المستخدم1 وتغيير اسمه الى FrmPicType في ال عقارات جزء كما هو موضح أدناه لقطة الشاشة.

8. انقر إدراج > وحدة، ثم انسخ كود VBA أدناه في نافذة الوحدة النمطية.

كود فبا 2: حفظ رسالة البريد الإلكتروني كصورة

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Update by Extendoffice 2018/3/5
Sub ExportEmailAsImage()
Dim xMail As Outlook.MailItem
Dim xFileName, xFilePath, xWdDocPath As String
Dim xPPTApp As PowerPoint.Application
Dim xPresentation As PowerPoint.Presentation
Dim xPPTShape As PowerPoint.Shape
Dim xPicType As String
Dim xFileFormat As PpSaveAsFileType
On Error Resume Next
FrmPicType.Show
If FrmPicType.xRet Then
  If FrmPicType.opbJPG.Value = True Then
    xPicType = ".jpg"
    xFileFormat = ppSaveAsJPG
  ElseIf FrmPicType.opbTIFF.Value = True Then
    xPicType = ".tiff"
    xFileFormat = ppSaveAsTIF
  End If
Else
  Exit Sub
End If
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, 0)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFilePath = xFolderItem.Path & "\"
Else
    xFilePath = ""
    Exit Sub
End If
'ShellExecute 0, "Open", "POWERPNT.exe", "", "", 0
Set xPPTApp = New PowerPoint.Application
xPPTApp.Height = 0
xPPTApp.Width = 0
xPPTApp.WindowState = ppWindowMinimized
xPPTApp.Visible = msoFalse
For Each xMail In Outlook.Application.ActiveExplorer.Selection
    xFileName = Replace(xMail.Subject, "/", " ")
    xFileName = Replace(xFileName, "\", " ")
    xFileName = Replace(xFileName, ":", "")
    xFileName = Replace(xFileName, "?", " ")
    xFileName = Replace(xFileName, Chr(34), " ")
    xWdDocPath = Environ("Temp") & "\" & xFileName & ".doc"
    xMail.SaveAs xWdDocPath, olDoc
    
    Set xPresentation = xPPTApp.Presentations.Add
    xPresentation.Application.WindowState = ppWindowMinimized
    xPresentation.Application.Visible = msoFalse
    With xPresentation
        .PageSetup.SlideHeight = 900 '792
        .PageSetup.SlideWidth = 612
        .Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
    End With
    xPPTApp.WindowState = ppWindowMinimized
    With xPresentation.Slides(1)
         .Application.Visible = msoFalse
         Set xPPTShape = .Shapes.AddOLEObject(0, 0, 612, 900, , xWdDocPath)
         xPresentation.SaveAs xFilePath & xFileName & xPicType, xFileFormat, msoTrue
    End With
    xPresentation.Close
Next
xPPTApp.Quit
MsgBox "Mails has been successfully saved as picture", vbInformation + vbOKOnly
End Sub

9. انقر الأدوات > مراجع حسابات، افحص ال مكتبة كائنات Microsoft PowerPoint ثم انقر فوق OK زر. انظر لقطة الشاشة:

10. اضغط على F5 مفتاح لتشغيل الكود. ثم نموذج المستخدم1 سينبثق مربع الحوار، يرجى تحديد نوع الصورة ثم النقر فوق OK زر. انظر لقطة الشاشة:

11. في ال تصفح بحثًا عن مجلد في مربع الحوار، حدد مجلدًا لحفظ الصورة، ثم انقر فوق الزر OK .

12. وأخيرا ، أ مايكروسوفت أوتلوك سيتم عرض مربع الحوار لإخبارك بإكتمال عملية الحفظ. الرجاء الضغط على OK .

يتم الآن تحويل رسائل البريد الإلكتروني المحددة إلى صورة jpg أو tiff وحفظها في مجلد محدد بنجاح.


مقالات ذات صلة:


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

كوتولس لتوقعات - أكثر من 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