时间:2020-07-27 22:50作者:admin来源:未知人气:713我要评论(0)
Outlook发邮件时忘记写主题或者添加附件的脚本解决方法:
按ALT+F11进入VBA集成开发环境,在左上角的工程资源管理器中依次展开Project1/MicrosoftOfficeOutlook对象/ThisOutlookSession,双击ThisOutlookSession,打开代码输入界面,贴入下面的代码,保存退出即可。
以后每次发邮件outlook会自动调用该函数检查是否有主题、是否漏附件。
PrivateSubApplication_ItemSend(ByValItemAsObject,CancelAsBoolean)
DimlngresAsLong
'检查邮件是否添加附件
IfInStr(1,Item.Body,"附件")<>0Then
IfItem.Attachments.Count=0Then
Application.Explorers(1).Activate
lngres=MsgBox("邮件内容中包含附件,但是没有发现附件!"&Chr(10)&"仍然发送?",_
vbYesNo+vbDefaultButton2+vbQuestion,"提示")
Iflngres=vbNoThen
Cancel=True
Item.Display
ExitSub
EndIf
EndIf
EndIf
'检查是否写主题
IfItem.Subject=""Then
Application.Explorers(1).Activate
lngres=MsgBox("邮件还没有写主题呢!"&Chr(10)&"仍然发送?",_
vbYesNo+vbDefaultButton2+vbQuestion,"提示")
Iflngres=vbNoThen
Cancel=True
Item.Display
ExitSub
EndIf
EndIf
EndSub
相关阅读 Outlook如何设置关闭时隐藏在任务栏右下角Outlook如何自动接收邮件Outlook如何终止发送邮件Outlook如何设置后台自动发送和接收邮件Outlook如何设置定时提醒Outlook如何在主界面中显示邮件内容Outlook如何在界面中显示待办事项Outlook如何将英文版的界面设置为中文版Outlook如何设置退出时也能自动发送和接收邮件Outlook中附件无法预览
热门文章 Outlook邮箱注册入口_Outlook注册教程Outlook写邮件时如何快速插入表情符号Outlook 邮箱容量设置扩充教程Outlook如何设置日历与手机、电脑同步
最新文章
Outlook如何设置关闭时隐藏在任务栏右下角Outlook如何自动接收邮件
Outlook如何终止发送邮件Outlook如何设置后台自动发送和接收邮件Outlook如何设置定时提醒Outlook如何在主界面中显示邮件内容
人气排行 Outlook邮箱注册入口_Outlook注册教程Outlook写邮件时如何快速插入表情符号Outlook 邮箱容量设置扩充教程Outlook发送邮件一直停留在发件箱的解决办法Outlook如何设置日历与手机、电脑同步Outlook如何精准搜索邮件Outlook 2019如何配置163邮箱的完整图解实例教程Outlook 如何修改邮件发件人姓名名称
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>