2 種方法來自動刪除 Outlook 中收到的電子郵件的信紙和主題

Outlook解決方案 2025 年 9 月 29 日

如果您不願意看到以自定義信紙或主題顯示的傳入電子郵件，您可以參考這篇文章。這裡我們將介紹2種方法。您可以根據自己的喜好進行選擇。

Outlook 允許用戶將信紙和主題應用於電子郵件。在這種情況下，用戶可能會收到顯示在各種文具中的多封電子郵件。您可能認為它太眼花繚亂，不願意查看各種主題的電子郵件。因此，您可能想要刪除傳入電子郵件的信紙。現在，下面，我們將教你兩種方法。

方法 1：以純文本形式閱讀郵件

首先，啟動 Outlook。
然後，單擊左上角的“文件”。
在“文件”菜單中，選擇“選項”。
接下來，在新窗口中，轉到“信任中心”選項卡。
隨後，在右側窗格中，點擊“信任中心設置”按鈕。
稍後，將顯示一個新窗口，您必須在其中轉到“電子郵件安全”選項卡。
然後，激活“以純文本形式閱讀”標籤下的兩個選項，即“以純文本形式閱讀所有標準郵件”和“以純文本形式閱讀所有數字簽名郵件”。
最後，單擊“確定”按鈕保存更改。
從那時起，Outlook 會自動將每封收到的電子郵件更改為純文本格式。純文本格式不支持信紙或主題。

請注意：

雖然這個方法很簡單，但它有一個缺陷——它也會刪除嵌入在這封電子郵件中的圖像。在這種情況下，如果傳入的電子郵件包含圖片，您將通過這種方式丟失它們。因此，在下面，我們將分享另一種方式。

方法 2：通過 VBA 自動刪除收到的電子郵件的信紙和主題

一開始，根據文章訪問Outlook VBA編輯器——“如何在Outlook中運行VBA代碼“。
接下來，將以下VBA代碼複製並粘貼到未使用的模塊中。

Sub RemoveStationery(objMail As Outlook.MailItem)
    Dim nTagStart As Integer
    Dim nTagEnd As Integer
    Dim strFoundInfo As String

    'Remove contents within <BODY> tag
    nTagStart = InStr(1, objMail.HTMLBody, "<BODY", vbTextCompare)
    If nTagStart > 0 Then
       nTagEnd = InStr(nTagStart, objMail.HTMLBody, ">", vbTextCompare)
       strFoundInfo = Mid(objMail.HTMLBody, nTagStart, nTagEnd - nTagStart + 1)
    End If
 
    If strFoundInfo <> "" Then
       objMail.HTMLBody = Replace(objMail.HTMLBody, strFoundInfo, "<BODY>")
       strFoundInfo = ""
    End If

    'Find & replace <STYLE> tag
    nTagStart = InStr(1, objMail.HTMLBody, "<STYLE>", vbTextCompare)
    If nTagStart > 0 Then
       nTagEnd = InStr(8, objMail.HTMLBody, "</STYLE>", vbTextCompare)
       strFoundInfo = Mid(objMail.HTMLBody, nTagStart, ((nTagEnd + 8) - nTagStart))
    End If

    If strFoundInfo <> "" Then
       objMail.HTMLBody = Replace(objMail.HTMLBody, strFoundInfo, "")
    End If
 
    objMail.Save
End Sub