日常工作中，经常有这样的事情出现：邮件已经发出去了，却发现附件没有加上，于是再补上一个Email：请忽略刚才的邮件，以此封为准。
我真的见过有的人在自己的电脑上贴上一个纸条，邮件不要忘记附件。
但是不管如何，你发出去的邮件就是泼出去的水，无论如何弥补，你粗心大意的事实已经是事实，再也无法更改。
你能想象你观察一个女生化妆的全过程，然后再观察她以光鲜亮丽的形象出现时，你的脑海里还是会复现出她素颜的画面。对于聪明的女生来说，从来不在公众场合化妆，因为那会泄露你美丽的秘密。
同样，你在编辑邮件时也是在为你的网络形象化妆，这个过程同样得是不公开的，也就是你不能发错一封邮件再追一封邮件告诉别人我发错邮件了。
在现代工作中，绝大部分时间，你们只会见字如面，甚至可能永远无法见面，你的邮件，微信这些就是你在另外一个人面前全部的形象。
见过很多穿着光鲜亮丽的女孩子，在网络空间中的形象一塌糊涂，你们每天花这么多时间捯饬自己却不知道在另外一个世界颜面尽失。
在手机已经成为人类的一个器官的时候，你要学会注意这个器官的形象，不是外面有一个咬了一口的苹果，里面却装的是残花败絮。
也花一点时间注意一下自己在虚拟空间中的形象，也就是网文中说的内涵。
大多数人还是生活在信息时代的原始人，不是不会，而是对此完全没有概念，只知道线下的礼仪，线上的礼仪完全无感。实际上虚拟世界的形象已经成为个人形象的重要组成部分，不信你看看一个人的朋友圈就能了解各大概了。
靠原则不如靠习惯，靠习惯不如靠工具，在最极端的情况下都能避免你发错邮件。
请相信你的大脑一定会犯错，你的大脑在执行一个规则确定的任务的时候一定不如机器，所以学会和机器友好相处吧！
为了避免类似的事情发生，给大家提供一个技术工具。完成如下设置后，只要邮件的主题或者正文中出现了“附件”二字，而邮件本身又没有附件的，会弹出提示框，防止大家漏发附件。当然编写一封完整的邮件也是这个工具应用的前提，而不是直接在发送报告的时候什么都不写，或者简单写个请查收。
Tools→Trust Center
Macro Security→No Security check for macros
快捷键Alt+F11调出VBA编辑器
双击thisOutlookSession，打开宏编辑器
把的代码粘贴进去，Ctrl+S保存，然后关闭该窗口即可
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
Dim message As Outlook.MailItem
Set message = Item
If Not CheckAttachment(message) Then
Cancel = True
Exit Sub
End If
End Sub
Private Function CheckAttachment(message As Outlook.MailItem) As Boolean
CheckAttachment = True
If (message.Attachments.Count = 0 And _
(InStr(message, "附件") > 0 Or InStr(message.Body, "附件") > 0)) Then
Dim answer As VbMsgBoxResult
answer = MsgBox("没有附件, 是否继续发送?", vbYesNo + vbQuestion, "Microsoft Office Outlook")
If answer = vbNo Then
CheckAttachment = False
Else
CheckAttachment = True
End If
End If
End Function
编辑邮件测试是否完成,自己按照如下方式给自己发个邮件测试一下
动图福利
今天学会了用Ulead GIF Animator 5给GIF文件批量加文字备注，Mark一下
至此，设置完成，后续再发送邮件的时候就可以避免漏发附件了
当然前提是邮件一定要写的完整，如果“附件”2字都没有，任何工具都是无用的
结构化表达中就是要在正文中对于各个附件进行说明，好的习惯从来不是单一的，都是相辅相成的。
使用该邮件进行测试宏设置是否有效,如果有效，点击发送应出现提示
代码来自：http://blog.csdn.net/coolzoom/article/details/42171997
快速输入一段话：比如附件请您查阅，谢谢！你可以通过输入FJ两个字母来快速输入，
无论多么紧急的邮件，发出之前一定要检查一遍，就像你出门之前要化妆，照照镜子一样。
我们已经进入一个谈资比包包更重要的时代，花点时间让你的形象更美丽。
网友评论