可利用vb代码实现，步骤如下：
1、启动outlook后，按alt+F11，打开vbe窗口；
2、异常点击展开project1--Microsoft outlook对象--thisoutlooksession，右侧代码编辑区输入以下代码：
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim lngres As Long
'检查是否写主题
If Item.Subject = "" Then
Application.Explorers(1).Activate
lngres = MsgBox("邮件还没有写主题呢！" & Chr(10) & "仍然发送？", _
vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End Sub
3、点击保存按钮，重启outlook即可。
