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.

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

Double click on ThisOutLookSession . It will open up a code pane. 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....