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

通常、Outlookで電子メールを印刷すると、画像も印刷されます。ただし、画像なしでテキストを印刷したい場合もありますが、Outlookには、このジョブをサポートできる組み込み機能がありません。このチュートリアルでは、Wordを介して画像のない電子メールをすぐに印刷するVBAコードを提供します。または、コンピューターにプリンターがない場合、VBAコードは最初に画像なしのPDFとして電子メールをエクスポートし、プリンターが使用可能になった後でPDFを印刷できます。

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

Office タブ - Microsoft Office でタブによる編集と参照を有効にし、仕事をスムーズにします

続きを読みます...ダウンロード...

Kutools for Outlook - 100 以上の高度な機能で Outlook を強化し、優れた効率を実現します

メール送信を自動化する自動CC / BCC, 自動転送規則によって。送信自動返信 (不在時) Exchange サーバーを必要とせず...
などのリマインダーを受け取る 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

doc重複するカレンダーアイテムを削除する1