Note: The other languages of the website are Google-translated. Back to English

Outlook: 이미지 없이 이메일을 인쇄하는 방법

일반적으로 Outlook에서 이메일을 인쇄하면 이미지도 인쇄됩니다. 그러나 때로는 이미지 없이 텍스트만 인쇄하고 싶지만 Outlook에는 이 작업을 지원할 수 있는 기본 제공 기능이 없습니다. 이 자습서는 Word를 통해 이미지가 없는 전자 메일을 즉시 인쇄하는 VBA 코드를 제공합니다. 또는 컴퓨터에 프린터가 없는 경우 VBA 코드는 먼저 이메일을 이미지 없이 PDF로 내보낸 다음 프린터를 사용할 수 있게 되면 PDF를 인쇄할 수 있습니다.

이미지 없이 이메일을 인쇄하는 VBA

Office 탭-Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Outlook 용 Kutools-Microsoft Outlook에 100 개의 강력한 고급 기능 제공
  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 규칙에 따른 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -메일 주소가 숨은 참조 목록에있는 경우 모두 답장하려고 할 때 메시지를 표시합니다. 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 모든 첨부 파일로 회신 (전체) 메일 대화에서; 한 번에 많은 이메일에 답장하십시오. 인사말 자동 추가 대답 할 때; 제목에 날짜 및 시간 자동 추가 ...
  • 부착 도구: 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 자동 저장 ... 빠른 보고서, 선택한 메일 수, 중복 메일 및 연락처 제거 ...
  • 100 개 이상의 고급 기능이 대부분의 문제 해결 Outlook 2010-2019 및 365. 전체 기능 60 일 무료 평가판.

이미지 없이 이메일을 인쇄하는 VBA

 

1. 텍스트만 인쇄할 이메일을 선택한 다음 다른 + F11 활성화 할 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 클릭 끼워 넣다 > 모듈 새 빈 모듈을 만든 다음 아래 코드를 복사하여 모듈에 붙여넣습니다.

VBA: 이미지 없이 이메일 내보내기

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub

문서 중복 캘린더 항목 제거 1

3. 클릭 도구 > 참조 사용하려면 참조 – 프로젝트 1 대화, 눈금 Microsoft Word 16.0 개체 라이브러리 확인란. 딸깍 하는 소리 OK.

 문서 중복 캘린더 항목 제거 1

문서 중복 캘린더 항목 제거 1

4-1. 코드 안에 커서를 두고 키를 누릅니다. F5 키 또는 클릭 달리기 버튼을 눌러 코드를 실행하면 이미지가 없는 이메일이 Word를 통해 즉시 인쇄됩니다. 그러나 컴퓨터에 프린터가 없으면 4단계를 따르십시오.

4-2. 컴퓨터에 프린터가 없는 경우 F5 키 또는 클릭 달리기 버튼을 눌러 코드를 실행하면 PDF 파일을 저장할 폴더를 선택하고 PDF 파일의 이름을 지정하는 대화 상자가 나타납니다. 딸깍 하는 소리 찜하기.

 문서 중복 캘린더 항목 제거 1

이제 이메일이 이미지 없이 PDF로 내보내졌습니다. PDF 파일을 열고 마우스 오른쪽 버튼을 클릭하여 선택합니다. 인쇄 이메일을 인쇄합니다.

문서 중복 캘린더 항목 제거 1

문서 중복 캘린더 항목 제거 1

: 선택한 이메일을 이미지, 헤더, 본문, 참조, 파일이 포함된 PDF(또는 Word, CSV, Excel, Txt, HTML 파일)로 대량 저장하려면 대량 저장 특징 Outlook 용 Kutools 3단계만 거치면 됩니다.

1. 이메일을 선택합니다.

2. 클릭 쿠툴 > 대량 저장.

문서 중복 캘린더 항목 제거 1

3. 위치를 선택하고 원하는 파일 형식을 확인하고 확인을 클릭합니다.

문서 중복 캘린더 항목 제거 1

문서 중복 캘린더 항목 제거 1

지금 Outlook용 Kutools 30일 무료 평가판 받기.


Outlook 용 Kutools-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
코멘트 (0)
아직 평가가 없습니다. 가장 먼저 평가하세요!
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0  등장 인물
추천 위치