Outlook2007 设置Subject未添加提示和附件未添加成功提示

来源：互联网发布：新疆为什么没有4g网络编辑：程序博客网时间：2024/05/21 11:37

打开Outlook2007后在Outlook2007界面下按下Alt+F11键进入Vba开发环境，依次展开Project1->Microsoft Office Outlook 然后双击打开Microsoft Office Outlook 下的ThisOutlookSession对象，在代码输入界面输入如下代码，保存并退出后即可生效。以后每次发送邮件时都会检查是否添加Subject和附件添加成功与否。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)Dim lngres As Long'check if add attachment successIf InStr(1, Item.Body, "Attachment") <> 0 ThenIf Item.Attachments.Count = 0 ThenApplication.Explorers(1).Activatelngres = MsgBox("The email including attachment but not find!" & Chr(10) & "Still send it?", vbYesNo + vbDefaultButton2 + vbQuestion, "Prompt message")If lngres = vbNo ThenCancel = TrueItem.DisplayExit SubEnd IfEnd IfEnd If'check if add subjectIf Item.Subject = "" ThenApplication.Explorers(1).Activatelngres = MsgBox("No Subject!" & Chr(10) & "Still send it?", vbYesNo + vbDefaultButton2 + vbQuestion, "Prompt message")If lngres = vbNo ThenCancel = TrueItem.DisplayExit SubEnd IfEnd IfEnd Sub

0 0