关于outlook忘写主题和附件提醒设置

jsjcjsjc

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("邮件内容中包含“附件”，但是没有发现附件，仍然发送？", _
   
8. vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
   
9. If lngres = vbNo Then
   
10. Cancel = True
    
11. Item.Display
    
12. Exit Sub
    
13. End If
    
14. 
    
15. End If
    
16. End If
    
17. If Item.Subject = "" Then
    
18. Application.Explorers(1).Activate
    
19. lngres = MsgBox("邮件没有写题目，是否真的发送？", _
    
20. vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
    
21. If lngres = vbNo Then
    
22. Cancel = True
    
23. Item.Display
    
24. Exit Sub
    
25. End If
    
26. End If
    
27. End Sub

复制代码

在2010测试有效，非常不错的代码，感谢sealot{:soso_e113:}

但是在附件提醒中，代码里面只有“附件”这个关键词，我希望在添加“attach”，“appendix”等关键词。想问一下怎么修改可以检测正文多个关键词？


谢谢

雪颜冰伶

我想问一下如何使用？