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. 

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

5. 

6. Double click on ThisOutLookSession . It will open up a code pane.
7. Copy and paste the following code in the code pane:
8. 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....