메인 컨텐츠로 가기

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

10. 누르세요 F5 코드를 실행하는 키입니다. 그런 다음 사용자폼1 대화 상자가 나타나면 사진 유형을 선택하고 OK 단추. 스크린 샷보기 :

11. 에서 폴더 찾아보기 대화 상자에서 사진을 저장할 폴더를 지정한 다음 OK 버튼을 클릭합니다.

12. 마지막으로 마이크로 소프트 아웃룩 저장 완료를 알리는 대화 상자가 표시됩니다. 다음을 클릭해 주세요. OK 버튼을 클릭합니다.

이제 선택한 이메일이 jpg 또는 tiff 사진으로 변환되어 지정된 폴더에 성공적으로 저장됩니다.


관련 기사:


최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 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