outlook2007 主题为空时发送提示 Blank Subject Warning for Outlook 2007

http://blog.china.alibaba.com/blog/nihaosuyan/article/b0-i11174419.html

可以用宏来实现，将下面的代码插入到ThisOutlookSession模块：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
 If Item.subject = "" Then 
 Cancel = True 
 MsgBox "发送前必须填写主题！" 
 End If 
 End Sub

要创建宏：

1. 按ALT-F11进入VBA集成开发环境
2. 在左上角的工程资源管理器中依次展开Project1/Microsoft Office Outlook 对象/ThisOutlookSession
3. 右击ThisOutlookSession→查看代码
4. 复制上面的代码并粘贴进代码窗口
5. 关闭VBA编辑器

详细步骤：

http://www.codeproject.com/KB/office/outlookblanksubject.aspx

We'll follow these steps to validate an empty subject line for Outlook 2007.

1. Go to Tools -> Macro -> Visual Basic Editor. Or, directly press Alt + F11.



2. The Visual Basic editor window gets opened.
3. On the left pane, you will see Microsoft Outlook Objects or Project1, expand this. Now, you will see the ThisOutLookSession entry.



4. Double click on ThisOutLookSession. It will open up a code pane.
5. Copy and paste the following code in the code pane:
Collapse

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$ = "Subject is Empty. Are you sure you want to send the Mail?"
      If MsgBox(Prompt$, vbYesNo + vbQuestion + _
            vbMsgBoxSetForeground, _
            "Check for Subject") = vbNo Then
        Cancel = True
      End If
  End If
End Sub



Now, just save the project.

There is one more setting you need to do, and that is to enable the macro. Go to Tools->Macro->Security. A dialog window gets opened. Select Warning for all macro options.

That's it.. You are good to go now.

Close your Outlook and open it again. You will be notified about a security concern. See the image below:

Click on Enable Macros.

Now, try to send an mail with an empty subject line. Enjoy....