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

最新推荐文章于 2020-10-02 01:49:06 发布

Fred Johnson

最新推荐文章于 2020-10-02 01:49:06 发布

阅读量1.3k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Easy Work

本文链接：https://blog.youkuaiyun.com/jfr664034354/article/details/56839890

Easy Work 专栏收录该内容

2 篇文章

订阅专栏

本文介绍如何使用VBA为Outlook2007开发邮件发送前的主题和附件检查功能，通过简单的代码实现邮件发送确认提示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

打开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 success

If InStr(1, Item.Body, "Attachment") <> 0 Then
If Item.Attachments.Count = 0 Then
Application.Explorers(1).Activate
lngres = MsgBox("The email including attachment but not find!" & Chr(10) & "Still send it?", vbYesNo + vbDefaultButton2 + vbQuestion, "Prompt message")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End If

'check if add subject

If Item.Subject = "" Then
Application.Explorers(1).Activate
lngres = MsgBox("No Subject!" & Chr(10) & "Still send it?", vbYesNo + vbDefaultButton2 + vbQuestion, "Prompt message")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End Sub