如何在信件主旨為空白時發出提醒

如何在信件主旨為空白時發出提醒

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