outlook 发送邮件没有“附件”、“主题”提醒

发邮件的时候经常和别人说“请见附件”，可是往往忘记加附件；或者是一个邮件没有主题就发出去了。

利用vba宏编程可以实现发送邮件前检查。

打开outlook后，按【alt】+【f11】，点击左侧的 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 IfEnd 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

以上代码来自 http://club.excelhome.net/forum.php?mod=viewthread&tid=138626

outlook 发送邮件没有“附件”、“主题”提醒相关推荐

(转载)SpringBoot 发送邮件和附件
什么是SMTP? SMTP全称为Simple Mail Transfer Protocol(简单邮件传输协议),它是一组用于从源地址到目的地址传输邮件的规范,通过它来控制邮件的中转方式.SMTP认证要 ...
outlook批量下载附件_在Outlook中批量打印PDF附件
outlook批量下载附件 This article was written by Sean Tsai, a data warehousing expert and good friend of th ...
python发送邮件和附件
发送邮件的时候,需要发送人,收件人,和一台邮件服务器,这里使用python发送一个邮件,主要需要引入smtplib和email库. 下面是源码,粘贴即可用: #!/usr/bin/env python ...
foxmail、outlook发送邮件，进度条很慢
foxmail.outlook发送邮件,进度条很慢,以为是网络问题,但是把服务器地址更改成内网IP地址也是一样.telnet 25端口响应慢(刚开始以为是数据库帐号密码认证慢造成的,后来tcpdump ...
Python 使用 smtp ssl 模式发送邮件与附件
参考 : 发送邮件简单入门 ( 以qq邮箱,163邮箱为例 ) :https://blog.csdn.net/qq_38661599/article/details/81013834 ...
怎样使用Outlook发送电子邮件，Outlook发送邮件步骤是什么？
Outlook作为最常用的邮箱客户端之一,受到了很多人的欢迎.但是,Outlook的绑定方法确实比较繁琐,经常会出现问题,不知道Outlook怎么发送邮件.其实,不是所有邮箱都支持绑定邮箱客户端,不过 ...
JAVA使用OUTLOOK发送邮件[451 5.7.3 STARTTLS is required to send mail]
JAVA使用OUTLOOK发送邮件 microsoft官网帮助信息错误信息解决方法 microsoft官网帮助信息错误信息 [SendFailedException message: 451 5 ...
7.5 uipath使用outlook发送邮件
uipath使用outlook发送邮件使用send outlook mail message活动,发送outlook邮件. to–接收人的邮箱 subject–标题 body–正文这个活动的配置非 ...
python3发送qq邮件_python3通过qq邮箱发送邮件以及附件
本文实例为大家分享了python3通过qq邮箱发送邮件以及附件的具体代码,供大家参考,具体内容如下ZLP免费资源网开启qq邮箱的smtp服务ZLP免费资源网 ZLP免费资源网代码:ZLP免费资源网 ...

outlook 发送邮件没有“附件”、“主题”提醒

outlook 发送邮件没有“附件”、“主题”提醒相关推荐

最新文章

热门文章