需要使用到邮箱时，很多小伙伴都会选择使用outlook邮箱这款软件。在outlook邮箱中写邮件时如果我们中途被打断了，我们可以将未完成的邮件保存到草稿箱中，方便后续继续进行编......
2023-01-11
Outlook 发邮件时忘记写主题或者添加附件的脚本解决方法
Outlook
2023-01-11
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将设置为HTML格式添加到快速访问栏详细阅读
在Outlook邮箱中写邮件时我们通常都会设置一定的文本格式，比如设置想要的字体字号，设置行间距段间距等等。但是有时候我们会发现这些设置文本格式的相关功能是灰色的不可......
2023-01-11
-
Outlook将密件抄送添加到快速访问栏详细阅读
在Outlook邮箱中有一个“密件抄送”功能，使用该功能我们可以将邮件发送给收件人的同时秘密抄送给其他收件人。如果我们经常需要使用到密件抄送功能我们就可以将其添加到......
2023-01-11
-
Outlook如何调出密件抄送栏详细阅读
在Outlook邮箱中写邮件时我们有时候会将同一封邮件发送给多个收件人，抄送给其他收件人等等，如果有需要我们还可以将邮件密件抄送给其他人，收件人不会看到添加到密件抄送栏......
2023-01-11
-
Outlook如何设置已读回执要求详细阅读
Outlook邮箱是很多企事业单位个体都在使用的一款办公软件，其中有许多非常强大的功能可以满足我们编辑和处理各种邮件的各种需求。在Outlook邮箱中有一个“已读回执”功能......
2023-01-11