Outlook 이메일을 이미지 파일로 빠르게 내보내는 방법

Outlook 솔루션 2025 년 9 월 29 일

일부 사용자는 Outlook 이메일을 jpg 파일과 같은 이미지 파일로 내보내고 싶어합니다. 따라서 이 기사에서는 Outlook VBA 코드를 통해 얻는 방법을 소개합니다.

이메일을 텍스트 파일, Word 문서 등으로 내보내는 다양한 방법을 배웠을 것입니다. 그렇다면 이메일을 JPG 파일처럼 사진으로 내보내면 어떨까요? 아웃룩에는 이 기능이 없는 것 같습니다. 그러나 이하에서는 빠른 방법을 알려 드리겠습니다.

Outlook 이메일을 이미지 파일로 빠르게 내보내기

로tart, Outlook 응용 프로그램을 시작합니다.
그런 다음 기본 Outlook 창에서 다음 기사에 따라 VBA 편집기에 액세스하세요.Outlook에서 VBA 코드를 실행하는 방법".
다음으로 "MS Word Object Lib"을 활성화합니다.rary”와 “MS PowerPoint 개체 라이브러리rary”기사를 참조하여 –“개체 라이브러리를 추가하는 방법rary 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 데이터를 추출하게 됩니다. 일부 사용자는 받은편지함 오류 수정 도구를 사용하는 경향이 있습니다. 그래도, 남ost 시간이 지나면 효과가 나타나지 않습니다. 그러므로 강력하고 신뢰할 수 있는 상태를 유지하는 것이 좋습니다. PST 수정 도구, 같은 DataNumen Outlook Repair. 손상된 파일을 스캔하고 아무런 소란 없이 최대 데이터를 다시 가져올 수 있습니다.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. mdf 수정 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM