Outlook：画像なしでメールを印刷する方法

通常、Outlook でメールを印刷すると、画像も一緒に印刷されます。しかし、画像を除いたテキストのみを印刷したい場合もあるでしょう。ところが、Outlook にはこの要望を直接サポートする標準機能が用意されていません。本チュートリアルでは、VBA コードを使ってWord 経由ですばやく画像なしのメールを印刷する方法をご紹介します。また、コンピューターにプリンターが接続されていない場合は、まず VBA コードでメールを画像なしの PDF としてエクスポートし、プリンターが利用可能になった時点でその PDF を印刷することもできます。

画像なしでメールを印刷するための VBA

---

画像なしでメールを印刷するための VBA

1。テキストのみを印刷したいメールを選択し、Alt＋F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

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

3。ツール＞参照設定をクリックすると、参照設定– プロジェクト 1ダイアログが表示されます。ここで、Microsoft Word 16.0 オブジェクトライブラリのチェックボックスをオンにして、［OK］をクリックしてください。OK。

 

4-1。カーソルをコード内に置いた状態で、F5キーを押すか、実行ボタンをクリックしてコードを実行すると、画像なしのメールがWord 経由ですぐに印刷されます。ただし、お使いのコンピューターにプリンターが接続されていない場合は、手順4 に従ってください。

4-2。プリンターが接続されていない場合、F5キーを押すか、実行ボタンをクリックしてコードを実行すると、PDF ファイルを保存するフォルダーを選択するダイアログが表示され、PDF ファイルのファイル名を入力できます。保存をクリックします。

 

メールが画像なしで PDF としてエクスポートされました。PDF ファイルを開き、右クリックして印刷を選択すれば、すぐにメールを印刷できます。

ヒント：選択したメールを一括で、画像・ヘッダー・本文・ CC 付きの PDF（またはWord、CSV、Excel、Txt、HTML ファイル）として保存したい場合は、一括保存機能が役立ちます。Kutools for Outlookなら、わずか3 ステップで完了します。

1。メールを選択してください。

2。Kutools＞一括保存をクリックしてください。

3。保存先のフォルダーを選択し、必要なファイル形式にチェックを入れて、［OK］をクリックします。