Деякі користувачі хотіли б експортувати електронну пошту Outlook як файл зображення, наприклад файл JPG. Тому в цій статті ми представимо вам, як отримати його за допомогою коду Outlook VBA.
Ви, напевно, навчилися різноманітним прийомам експорту електронної пошти у вигляді текстового файлу, документа Word тощо. Тоді як щодо експорту електронного листа у вигляді зображення, такого як файл JPG? Очевидно, в Outlook цієї функції немає. Але надалі ми поділимось із вами швидкими засобами.
Швидко експортуйте електронну пошту Outlook як файл зображення
- Для початку запустіть програму Outlook.
- Потім у головному вікні Outlook отримайте доступ до редактора VBA відповідно до статті - “Як запустити код VBA у своєму Outlook".
- Далі увімкніть «Бібліотека об’єктів MS Word» та «MS PowerPoint Бібліотека об’єктів», посилаючись на статтю – «Як додати посилання на бібліотеку об'єктів у VBA".
- Далі скопіюйте та вставте наступний код VBA у порожній модуль.
Sub ExportEmailAsImage()
Dim objMail As Outlook.MailItem
Dim strFileName As String
Dim strWordDocument As String
Dim objWordApp As Word.Application
Dim objWordDocument As Word.Document
Dim objDocumentRange As Word.Range
Dim objPowerPointApp As PowerPoint.Application
Dim objPresentation As PowerPoint.Presentation
Dim objShape As PowerPoint.Shape
On Error Resume Next
'Export the email as Word document
Set objMail = Outlook.Application.ActiveExplorer.Selection(1)
strFileName = Replace(objMail.Subject, "/", " ")
strFileName = Replace(strFileName, "\", " ")
strFileName = Replace(strFileName, ":", "")
strFileName = Replace(strFileName, "?", " ")
strFileName = Replace(strFileName, Chr(34), " ")
strWordDocument = Environ("Temp") & "\" & strFileName & ".doc"
objMail.SaveAs strWordDocument, olDoc
Set objWordApp = CreateObject("Word.Application")
Set objWordDocument = objWordApp.Documents.Open(strWordDocument)
objWordApp.Visible = True
objWordApp.Selection.Find.ClearFormatting
objWordApp.Selection.Find.Replacement.ClearFormatting
With objWordApp.Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Wrap = wdFindContinue
End With
'Insert the document into a PowerPoint Presentation slide as an object
objWordApp.Selection.Find.Execute Replace:=wdReplaceAll
Set objDocumentRange = objWordDocument.Range()
objDocumentRange.Font.Name = "Calibri"
objDocumentRange.Font.Size = 10
objWordDocument.Close True
objWordApp.Quit
Set objPowerPointApp = CreateObject("PowerPoint.Application")
Set objPresentation = objPowerPointApp.Presentations.Add
objPowerPointApp.Visible = msoTrue
With objPresentation
.PageSetup.SlideHeight = 792
.PageSetup.SlideWidth = 612
.Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
End With
'Export the slide
With objPresentation.Slides(1)
Set objShape = .Shapes.AddOLEObject(0, 0, 612, 792, , strWordDocument)
.Export "E:\Email_" & strFileName & ".jpg", "JPG"
End With
objPresentation.Saved = msoTrue
objPresentation.Close
objPowerPointApp.Quit
End Sub
- Після цього вам потрібно додати макрос на панель швидкого доступу.
- Згодом ви можете закрити редактор VBA.
- Пізніше виберіть електронний лист і натисніть кнопку макросу на панелі швидкого доступу.
- Коли макрос завершиться, ви зможете перейти до попередньо визначеної локальної папки, щоб знайти експортований файл зображення з цього електронного листа.
Отримання даних Outlook із пошкодженого файлу
Ви можете бути досить засмучені, якщо ваш файл Outlook серйозно пошкоджено. У такому випадку вам доведеться витягувати дані Outlook зі скомпрометованого файлу. Деякі користувачі схильні використовувати інструмент відновлення папки "Вхідні". Однак, здебільшого, це не дасть результату. Тому вам краще мати надійний та надійний Виправлення PST інструмент, такий як DataNumen Outlook Repair. Він може сканувати пошкоджений файл і повертати максимум даних без будь-яких суєт.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправлення mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com