outlook发送邮件时总是忘记添加附件?

 时间:2026-02-13 06:33:20

1、2003版本:打开outlook --工具--宏--安全性--点为所有宏提供警告或不执行安全性检查(不推荐)--确定

2010及以后版本:打开outlook—文件—选项—信任中心—信任中心设置—宏设置,选择为启用所有宏购轿册,否则每次打开outlook都会提示是否启用宏。

outlook发送邮件时总是忘记添加附件?

outlook发送邮件时总是忘记添加附件?

2、重新打开outlook,按Alt+F11键打开宏编辑器,如下图,展开左侧目录,双击“this outlook session”弹出宏编辑界面,将以下代码粘贴上面

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

 Dim lngres As Long

 If InStr(1, Item.Body, "附件") <> 0 Then

 If Item.Attachments.Count = 0 Then

 lngres = MsgBox("邮件内容中包含附件描述但没有发现附件是蚂趴否继续发送!", vbYesNo + vbDefaultButton2 + vbQuestion, "提示")

 If lngres = vbNo Then Cancel = True

 End If

 End If

 End Sub

outlook发送邮件时总是忘记添加附件?

3、保存以上代码编辑,退出outlook。

4、测试,重新打开outlook 填写收件人,然后正文中输入“附件”墨罪 ,但不添加附件,点“发送”,如果跳出“邮件内容中包含附件描述但没有发现附件是否继续发送!”的提示,则测试通过,点“否”,然后添加附件,点发送就OK了。

正文中必须有附件两个字,才会判断并提示。

outlook发送邮件时总是忘记添加附件?

  • 怎样使用VBA选择单元格区域但排除首行标题?
  • Excel如何让切片器不显示数据源中删除的项目
  • 收件人太多,Outlook无法发送/读取邮件?
  • 如何在EXCEL表格中自动定位小数点
  • 巧用RTD函数 获取实时数据
  • 热门搜索
    八礼四仪手抄报 节能减排手抄报 关于幸福的手抄报 关于宪法的手抄报 黑白手抄报 普通话手抄报内容 海底世界手抄报 我爱我班手抄报 优秀手抄报 初一英语手抄报