Outlook发邮件时忘记写主题的解决方法

用惯了Foxmail添加主题提示，在Outlook下两次发邮件忘记写主题了，实在不应该！分享一个解决方案。

Outlook发邮件时忘记写主题的解决方法：

按ALT+F11进入VBA集成开发环境，在左上角的工程资源管理器中依次展开Project1/Microsoft Office Outlook 对象/ThisOutlookSession，双击ThisOutlookSession，打开代码输入界面，贴入下面的代码，保存退出即可。

以后每次发邮件outlook会自动调用该函数检查是否有主题、是否漏附件。在outlook2007下测试通过，2003应该也可以通过。

Private Sub Application_ItemSend(ByVal Item As Object,Cancel As Boolean) Dim lngres As Long '检查邮件是否添加附件 If InStr(1, Item.Body, "附件") <> 0 Then If Item.Attachments.Count = 0 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 If '检查是否写主题 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