跳到主要内容

Outlook:忘记邮件中的附件时自动提醒

您可能会头痛,忘记添加附件,但提醒收件人检查电子邮件正文中的附件。 在这里,我们将介绍两个技巧,以帮助您在发送可能缺少Microsoft Outlook附件的电子邮件时自动提醒自己。

忘记Outlook 2013/2016中的附件时自动提醒

忘记Outlook 2007和2010中的附件时自动提醒

从Outlook中的一个或多个联系人文件夹中删除所有重复的联系人

有时,我们可能会重复添加相同的联系人,如何从一个或多个联系人文件夹中删除重复的联系人? Kutools for Outlook's Duplicate Contacts 功能可以根据电子邮件,全名或其他条件从一个或多个联系人文件夹中快速删除或合并重复的联系人。    点击免费试用45天!
doc删除重复的联系人1
 
Kutools for Outlook:拥有数十个方便的 Outlook 插件,可在 45 天内免费试用,无任何限制。
Office 选项卡 - 在 Microsoft Office 中启用选项卡式编辑和浏览,让工作变得轻而易举
Kutools for Outlook - 通过 100 多个高级功能增强 Outlook,实现卓越效率
使用这些高级功能增强您的 Outlook 2021 - 2010 或 Outlook 365。 享受全面的 60 天免费试用并提升您的电子邮件体验!

箭头蓝色右气泡忘记Outlook 2013/2016中的附件时自动提醒

Microsoft Outlook 2013支持当您发送可能缺少附件的电子邮件时自动警告您的功能。

步骤1:点击 文件 > 附加选项.

步骤2:在“ Outlook选项”对话框中,单击 邮箱: 在左侧栏中。

步骤3:进入 发送信息 部分,并继续检查以下选项 当我发送可能缺少附件的消息时警告我。

步骤4:点击 OK 按钮退出此对话框。

然后,如果您可能忘记附件,Microsoft Outlook 2013或2016将自动警告您。

例如,您输入“请检查附件“”查看附件”等在邮件正文中,但请勿在邮件正文中插入附件 附件 领域。 当点击 提交 按钮,将弹出一个警告对话框,提示您可能忘记了附加文件。 请参见以下屏幕截图:


箭头蓝色右气泡忘记Outlook 2007和2010中的附件时自动提醒

如果您可能忘记附件,Microsoft Outlook 2007和2010不支持自动警告。 VBA宏可以帮助您实现它。

步骤1:按下 其他 + F11 键打开“ Microsoft Visual for Applications”窗口。

步骤2:在左侧栏中扩展项目1,然后双击 本次展望会议 打开它。

步骤3:将以下代码粘贴到ThisOutlookSession窗口中。

VBA:如果未插入附件,则警告

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long

On Error GoTo handleError

iIndex = InStr(Item.Body, "attach")

If iIndex > 0 And Item.Attachments.Count = 0 Then

retMB = MsgBox("You may have forgotten to attach a file." & vbCrLf & vbCrLf & "Do you still want to continue?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If retMB = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
End If

End Sub

步骤4:点击 保存 工具栏上的按钮。

从现在开始,如果您添加“gehechtheid消息正文中的“但不附加文件”,则会弹出警告提示,告诉您单击“确定”后可能已忘记附加文件。 提交 按钮。 查看屏幕截图:


最佳办公生产力工具

Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook

🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 外出(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 轻松回忆电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  使用选项卡式视图提高 Outlook 工作效率  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

超过 100特点 等待您的探索! 单击此处了解更多。

了解更多       免费下载      购买
 

 

Comments (34)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The built in functionality is not as good as the VBA code !!! Test it for yourself, for example, if you copy/paste the "please check attachments" text, it won't trigger... you need to write it in the body. I prefer the VBA code version, and moreover you can customize it (language and check for other words).
This comment was minimized by the moderator on the site
Will this vba code work with signatures?
This comment was minimized by the moderator on the site
I had the same issue, you have to change the code "If iIndex > 0 And Item.Attachments.Count = 0" to "If iIndex > 0 And Item.Attachments.Count > 1 "This only works when you have 1 picture in you signiture and not emailing in a string with a lot of signitures, but at least it helps for single emails.
This comment was minimized by the moderator on the site
works well- easy to set up-thanks
This comment was minimized by the moderator on the site
Will not work for me regardless of count value. I've tried everything here and for some reason can never get the popup.
This comment was minimized by the moderator on the site
THANK YOU!
This works perfectly for me with "If iIndex > 0 And Item.Attachments.Count = 0" despite the fact that I have an image in my signature. I'm using Microsoft Office Professional Plus 2010
This comment was minimized by the moderator on the site
If anyone is having trouble using this code, images in your signature count as attachments.


I have one image in my signature, so changing the line:

If iIndex > 0 And Item.Attachments.Count = 0 Then

to:

If iIndex > 0 And Item.Attachments.Count = 0 Or Item.Attachments.Count = 1 Then

Made it work for me.
This comment was minimized by the moderator on the site
Thanks for pointing this out this was also a problem I was having. I found that your fix prompted the warning regardless of whether the word 'attach' had been used. Instead I used:

If iIndex > 0 And Item.Attachments.Count = 1 Then

This prompted the warning only when intended not whenever any email was sent.
This comment was minimized by the moderator on the site
Thanks Anthony, it worked.
This comment was minimized by the moderator on the site
This Code would not work for me. I had to use this one:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then

If Item.Attachments.Count = 0 Then

answer = MsgBox("There's no attachment, send anyway?", vbYesNo)

If answer = vbNo Then Cancel = True

End If

End If

End Sub
This comment was minimized by the moderator on the site
Is the Auto-Attachment feature designed to work when email is sent using the Ctrl+Enter keys?
This comment was minimized by the moderator on the site
Is the Auto Attachment feature designed to work when you send email using the Ctrl+Enter keys?
This comment was minimized by the moderator on the site
I've used this code and when I test it with my email address in the to line I get the error message, but if I put anyone else in there it goes through just fine. Any ideas about what could be happening?
This comment was minimized by the moderator on the site
How to set Warning when a message is sent without attachment in lotus notes 8.5.3 ?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations