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