如何在Outlook中關閉或禁用無主題警告?
使用Outlook 2010和2013時,如果您發送的電子郵件中沒有主題,則每次都會彈出一個無主題提示框,以進行提醒。 如果您真的不想填寫主題,則無主題警告將給您帶來很大麻煩。 為了幫助Outlook用戶擺脫“無主題警告”,我們在以下教程中提供了一項技巧。
- 自動發送電子郵件 自動CC / BCC, 自動前進 按規則; 傳送 自動回复 (不在辦公室)無需交換伺服器...
- 取得類似提醒 BCC警告 當您在密件副本清單中回覆所有內容時,以及 缺少附件時提醒 對於忘記的附件...
- 提高電子郵件效率 回覆(全部)並附上附件, 自動添加問候語或日期和時間到簽名或主題中, 回覆多封電子郵件...
- 簡化電子郵件發送 撤回電子郵件, 附件工具 (壓縮全部、自動儲存全部...)、 刪除重複項和 快速報告...
在Outlook中關閉或禁用沒有主題警告
在Outlook 2007中,如果您發送的電子郵件沒有主題,則不會發出警告。 在Outlook 2010和2013中啟用了此功能。但是沒有關閉或禁用此無主題警告的功能。 在本教程中,我們將向您展示實現此目標的VBA代碼。
1.請按 其他 + F11 鍵以打開“ Microsoft Visual Basic應用程序”對話框。
2。 展開 Project1 > Microsoft Outlook對象 通過雙擊它們。 然後雙擊 本次展望會議 打開 Vba工程.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
Debug.Print oItem.Sent
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代碼即可工作。 當您發送不帶主題的消息時,“無主題”警告框將不再顯示。
備註:確保 啟用所有的宏 複選框已選中(請單擊 文件 > 選項 > 信託中心 > 信任中心設置, 並在 信託中心 對話框中,選擇 宏設置 > 啟用所有的宏),請參見屏幕截圖:
最佳辦公生產力工具
Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook
🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……
📧 電子郵件自動化: 外出(適用於 POP 和 IMAP) / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送(進階規則) / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...
📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...
📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...
🌟 介面魔法: 😊更多又漂亮又酷的表情符號 / 使用選項卡式視圖提高 Outlook 工作效率 / 最小化 Outlook 而不是關閉 ...
👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...
👩🏼🤝👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...
超過 100特點 等待您的探索! 按此處了解更多。