Outlook 发邮件时忘记写主题或者添加附件的脚本解决方法
- 2021-12-05
- 来源/作者： 菜鸟图库/ 菜鸟图库
- 578 次浏览
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
标签(TAG) outlook教程
