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

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

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

Office 탭 - Microsoft Office에서 탭 편집 및 탐색을 활성화하여 작업을 원활하게 만듭니다.

자세히보기 ...다운로드 ...

Outlook용 Kutools - 탁월한 효율성을 위한 100개 이상의 고급 기능으로 Outlook 향상

이메일을 자동화하세요 자동 CC / BCC, 자동 전달 규칙에 따라; 보내다 자동 회신 (부재중) 교환서버 필요없이...
다음과 같은 알림을 받으세요 BCC 경고 BCC 목록에 있는 동안 모든 항목에 답장할 때 첨부 파일 누락시 알림 잊어버린 첨부파일을 위해...
이메일 효율성 향상 첨부 파일을 포함하여 회신(전체), 서명이나 제목에 인사말이나 날짜 및 시간 자동 추가, 여러 이메일에 답장하기...
이메일 전송을 간소화하세요 리콜 이메일, 부착 도구 (모두 압축, 모두 자동 저장...), 중복 제거및 빠른 보고서...

이러한 고급 기능으로 Outlook 2021~2010 또는 Outlook 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