如何在 Outlook 中關閉或停用「主旨遺漏」警告？

當您在使用 Outlook 2010 與 2013 時，若傳送沒有主旨的電子郵件，系統每次都會跳出「無主旨」提示方塊提醒您。若您確實不想填寫主旨，此警告反而會造成極大困擾。為協助 Outlook 使用者擺脫「無主旨」警告，我們在以下教學中提供一項實用技巧。

在 Outlook 中關閉或停用「無主旨」警告

---

在 Outlook 中關閉或停用「無主旨」警告

在 Outlook 2007 中，若您傳送不含主旨的電子郵件，系統不會顯示警告；此功能於 Outlook 2010 與 2013 中啟用。然而，並無直接選項可關閉或停用這項「無主旨」警告。本教學將為您展示一段 VBA 程式碼，協助您達成此目的。

1. 請按下「Alt」+「F11」鍵，開啟「Microsoft Visual Basic for Applications」視窗。

2. 雙擊展開「Project 1」>「Microsoft Outlook Objects」，接著雙擊「ThisOutlookSession」，即可開啟「VbaProject.OTM」視窗。

3. 將下方的 VBA 程式碼複製並貼上至該視窗中。

VBA：關閉或停用「無主旨」警告

Option Explicit
Private WithEvents oInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set oInspectors = Outlook.Inspectors
End Sub

Private Sub oInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim oItem As Object
    On Error GoTo ExitProc
    Set oItem = Inspector.CurrentItem
    If oItem.Sent = False Then
        If oItem.Subject = "" Then oItem.Subject = " "
    End If
ExitProc:
    Set oItem = Nothing
    Set Inspector = Nothing
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    On Error Resume Next
    Item.Subject = Trim(Item.Subject)
End Sub

Private Sub Application_Quit()
    Set oInspectors = Nothing
End Sub

4. 按一下「儲存」按鈕，即可儲存您的 VBA 程式碼。

5. 重新啟動 Outlook 應用程式。

接著，VBA 程式碼便會生效：當您傳送不含主旨的郵件時，將不再彈出「無主旨」警告對話框。

注意：請務必勾選「啟用所有巨集」選項。（依序點選「檔案」>「選項」>「信任中心」>「信任中心設定」，在開啟的「信任中心」對話框中，選擇「巨集設定」，再勾選「啟用所有巨集」），如截圖所示：