Outlook发邮件时忘记写主题或者添加附件的脚本解决方法

Outlook发邮件时忘记写主题或者添加附件的脚本解决方法：
按ALT+F11进入VBA集成开发环境，在左上角的工程资源管理器中依次展开Project1/Microsoft Office Outlook 对象/ThisOutlookSession，双击ThisOutlookSession，打开代码输入界面，贴入下面的代码，保存退出即可。
以后每次发邮件outlook会自动调用该函数检查是否有主题、是否漏附件。

 
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