일부 사용자는 Outlook 이메일을 jpg 파일과 같은 이미지 파일로 내보내고 싶어합니다. 따라서 이 기사에서는 Outlook VBA 코드를 통해 얻는 방법을 소개합니다.
이메일을 텍스트 파일, Word 문서 등으로 내보내는 다양한 방법을 배웠을 것입니다. 그렇다면 이메일을 JPG 파일처럼 사진으로 내보내면 어떨까요? 아웃룩에는 이 기능이 없는 것 같습니다. 그러나 이하에서는 빠른 방법을 알려 드리겠습니다.
Outlook 이메일을 이미지 파일로 빠르게 내보내기
- 먼저 Outlook 애플리케이션을 실행하세요.
- 그런 다음 기본 Outlook 창에서 다음 기사에 따라 VBA 편집기에 액세스하세요.Outlook에서 VBA 코드를 실행하는 방법".
- 다음으로 "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. 손상된 파일을 스캔하고 아무런 소란 없이 최대 데이터를 다시 가져올 수 있습니다.
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. mdf 수정 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM