可以用宏来实现，将下面的代码插入到ThisOutlookSession模块：
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.subject = "" Then
Cancel = True
MsgBox "发送前必须填写主题！"
End If
End Sub
要创建宏：
按ALT-F11进入VBA集成开发环境
在左上角的工程资源管理器中依次展开Project1/Microsoft Office Outlook 对象/ThisOutlookSession
右击ThisOutlookSession→查看代码
复制上面的代码并粘贴进代码窗口
关闭VBA编辑器
