当前位置:雨林木风下载站 > 办公软件教程 > 详细页面

全部安卓应用教程办公软件教程电脑学习教程苹果应用教程技术开发教程网页设计教程

Outlook 发邮件时忘记写主题或者添加附件的脚本处理办法

Outlook 发邮件时忘记写主题或者添加附件的脚本处理办法

更新时间：2024-01-29 文章作者：未知信息来源：网络阅读次数：次

Microsoft Office Outlook是微软办公软件套装的组件之一，它对Windows自带的Outlook express的功能进行了扩充。Outlook的功能很多，可以用它来收发电子邮件、管理联系人信息、记日记、安排日程、分配任务。最新版为Outlook 2021。

?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

微软还将Hotmail在线电子邮件服务更名为Outlook.com。

温馨提示：喜欢本站的话，请收藏一下本站！

本类教程下载

系统下载排行