Outlook에서 전자 메일 메시지를 그림 형식 (jpg / tiff)으로 저장하는 방법은 무엇입니까?

Outlook에서 jpg 또는 tiff 사진과 같은 사진으로 전자 메일 메시지를 저장해 본 적이 있습니까? 이 기사에서는이 문제를 해결하는 방법을 보여줍니다.

VBA 코드를 사용하여 전자 메일 메시지를 그림 형식으로 저장

VBA 코드를 사용하여 전자 메일 메시지를 그림 형식으로 저장

Outlook에서 이메일 메시지를 그림 형식으로 저장하려면 다음과 같이하십시오.

1. 사진으로 저장할 이메일을 선택한 후 다른 + F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭하십시오 끼워 넣다 > 사용자 정의 폼. 스크린 샷보기 :

3. 만들기 사용자 양식 아래 스크린 샷과 같이.

4. 를 선택합니다 jpg 옵션 버튼을 누르고 이름을 opbJPG 왼쪽에 등록 창유리.

5. 위의 4 단계를 반복하여 다른 옵션 버튼의 이름을 다음과 같이 변경합니다. opbTIFF. 그리고 이름을 OK 명령 버튼 및 취소 명령 버튼 cdbok 과 cdb 취소 갈라져.

주의 사항: 등록 창이 표시되지 않습니다. 응용 프로그램 용 Microsoft Visual Basic 창에서 F4 키를 눌러 창을 불러옵니다.

6. 사용자 양식의 빈 공간을 두 번 클릭하여 암호 창문. 모든 코드를 다음 VBA 스크립트로 바꿉니다. 그런 다음 코드 창을 닫습니다.

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 이름을 다음으로 변경합니다. FrmPic 유형 FBI 증오 범죄 보고서 등록 아래 스크린샷과 같은 창을 보여줍니다.

8. 클릭 끼워 넣다 > 모듈를 클릭한 다음 아래 VBA 코드를 모듈 창에 복사합니다.

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 단추. 스크린 샷보기 :