Outlook：如何打印沒有圖像的電子郵件

通常在 Outlook 中打印電子郵件，圖像也會被打印。但有時，您只想打印沒有圖像的文本，但是，在 Outlook 中，沒有可以支持這項工作的內置功能。本教程提供了一個 VBA 代碼，該代碼將立即通過 Word 打印無圖像電子郵件。或者當您的計算機沒有打印機時，VBA 代碼會先將電子郵件導出為沒有圖像的 PDF，然後您可以在打印機可用後打印 PDF。

VBA打印沒有圖像的電子郵件

Office 標籤 - 在 Microsoft Office 中啟用選項卡式編輯和瀏覽，讓工作變得輕而易舉

閱讀更多...下載...

Kutools for Outlook - 透過 100 多個進階功能增強 Outlook，實現卓越效率

自動發送電子郵件自動CC / BCC, 自動前進按規則；傳送自動回复（不在辦公室）無需交換伺服器...
取得類似提醒 BCC警告當您在密件副本清單中回覆所有內容時，以及缺少附件時提醒對於忘記的附件...
提高電子郵件效率回覆（全部）並附上附件, 自動添加問候語或日期和時間到簽名或主題中, 回覆多封電子郵件...
簡化電子郵件發送撤回電子郵件, 附件工具（壓縮全部、自動儲存全部...）、刪除重複項和快速報告...

使用這些進階功能增強您的 Outlook 2021 - 2010 或 Outlook 365。享受全面的 60 天免費試用並提升您的電子郵件體驗！

閱讀更多...下載...

VBA打印沒有圖像的電子郵件

1. 選擇您只想打印文本的電子郵件，然後按其他 + 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

doc 刪除重複的日曆項目 1