vba宏编程 outlook 发送邮件没有“附件”、“主题”提醒

发邮件的时候经常和别人说“请见附件”，可是往往忘记加附件；或者是一个邮件没有主题就发出去了。
利用vba宏编程可以实现发送邮件前检查。

打开outlook后，按【alt】+【f11】，点击左侧的 ThisOutlookSession，将以下代码复制进去，保存、退出，重启outlook启用宏。

这样如果在邮件正文中有“附件”俩字，缺没有添加附件，就会提示,没有主题同样会提示。

1. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
   
2. Dim lngres As Long
   
3. '检查邮件是否添加附件
   
4. If InStr(1, Item.Body, "附件") <> 0 Then
   
5. If Item.Attachments.Count = 0 Then
   
6. Application.Explorers(1).Activate
   
7. lngres = MsgBox("邮件内容中包含“附件”，但是没有发现附件！" & Chr(10) & "仍然发送？", _
   
8. vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
   
9. 
   
10. If lngres = vbNo Then
    
11. Cancel = True
    
12. Item.Display
    
13. Exit Sub
    
14. End If
    
15. 
    
16. End If
    
17. End If
    
18. 
    
19. '检查是否写主题
    
20. If Item.Subject = "" Then
    
21. Application.Explorers(1).Activate
    
22. lngres = MsgBox("邮件还没有写主题呢！" & Chr(10) & "仍然发送？", _
    
23. vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
    
24. If lngres = vbNo Then
    
25. Cancel = True
    
26. Item.Display
    
27. Exit Sub
    
28. End If
    
29. End If
    
30. End Sub
    

复制代码