星期三, 9月 06, 2006

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

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

1 則留言:

Sean 提到...

您好:這個功能算是個很貼心的功能,不知是否能利用什麼方式部署至AD上所有使用者的Outlook呢?謝謝!