Outlook发邮件时忘记写主题或者添加附件的脚本解决方法：

按ALT+F11进入VBA集成开发环境，pdf转换成word,pdf转word，在左上角的工程资源管理器中依次展开Project1/MicrosoftOfficeOutlook对象/ThisOutlookSession，双击ThisOutlookSession，word教程零基础教程，打开代码输入界面，贴入下面的代码，word教程自学，保存退出即可。

以后每次发邮件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

本地下载

上一篇：word学习教程：如何解决 Outlook 无法正常显示邮件中的图片 下一篇：word教程零基础教程：Outlook 发邮件时忘记写主题或者添加附件的脚本解决方法

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。