當信件主旨為空白時發出提醒

相信很多人都會有一個通病，就是當我們利用Outlook在撰寫郵件時，因為對於內容太過於專注了，或是時間的緊迫，而忘記填寫EMail主旨，就將郵件寄發出去，若這封信件是寄給重要的客戶或是長官，我想這是一個比較不禮貌的行為吧！
我也曾經因為這樣，而吃過苦頭...
所以就特別在網路上尋找到了這個解決方案，當我們在寄信出去之前，會幫我們檢查一下主旨是否有填寫！然後再決定要不要繼續將信件寄出去！

解決方案如下：

Outlook Express
OLEXP: Missing Dialog Box When Message Has a Blank Subject Linehttp://support.microsoft.com/?kbid=216884

Outlook
1. 執行 Outlook
2. 開啟 Visual Basic 編輯器 (按 ALT + F11)
3. 展開視窗左方的 Microsoft Outlook 物件, 雙按 ThisOutlookSession, 在右方的程式碼視窗中輸入下列程式碼.


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(Trim(strSubject)) = 0 Then
Prompt$ = “信件主旨為空白, 你確定要將郵件寄出嗎?”
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, “檢查信件主旨”) = vbNo Then
Cancel = True
End If
End If
End Sub




oneman2009/9/4 下午6:01:00

若未執行, 還要設定巨集的安全性為 "中"

Steps:
1. 工具 -> 巨集 -> 安全性
設定為 "中"
2. 重新啟動 Outlook, 選擇要執行巨集, 即會提醒