Outlook 宏命令提醒插入附件

1、在Outlook里面键入ALT+F11打开VBA编辑器； 2、键入CTRL+R激活左边的那个工程面板，展开并双击上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 对象\ThisOutlookSession”； 3、将下面的代码粘贴到右边打开的编辑区里面去：

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

5、键入CTRL+S保存，再键入ALT+Q退出VBA编辑器返回Outlook主界面； 6、选择菜单“工具-信任中心”，在弹出窗口中选择“宏安全性”； 7、选择“为所有宏提供警告”或者“不执行宏安全性检查”（建议选择前者）； 8、重新启动Outlook，看到提示是否否用宏，选择启用。