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，看到提示是否否用宏，选择启用。