Outlook 宏命令提醒插入附件
2014-12-26 14:57
375 查看
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,看到提示是否否用宏,选择启用。
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,看到提示是否否用宏,选择启用。
相关文章推荐
- Outlook 标题 附件 提醒 VBA 代码
- outlook 发送邮件没有“附件”、“主题”提醒
- Outlook里面插入图片不是附件的形式
- outlook插入附件显示为图标
- Outlook2013 新邮件提醒
- VB.net 调用OutLook发邮件(程序自动添加附件)
- 突破outlook 2010 附件大小超出了允许的范围 限制
- outlook禁止访问下列带有潜在安全问题的附件的解决方法
- 从outlook导出附件的VBS小程序
- C# 发送邮件(内容中可以插入图片,邮件可以添加附件,163邮箱、QQ邮箱等都可以使用)
- outlook 发送邮件前提醒 宏
- 特例:Outlook / Live Mail 之非戰之罪:附件打不開
- 如何解决OUTLOOK无法访问附件
- 设置OUTLOOK2007新邮件到达提醒和最小化到托盘显示
- Outlook 2010无法添加大附件解决办法
- [小技巧] outlook 一次下载多个附件
- Outlook2013 新邮件提醒
- outlook 下无法打开附件
- Outlook 2007 For XP日历提醒时会自动重启
- Outlook 收件箱下子文件夹设置邮件提醒