outlook 2010 自动密送Email
以下功能请勿非法使用:
密抄到多人这个需要用到宏
方法一:
1、在Outlook里面键入ALT+F11打开VBA编辑器
2、展开“Project (VbaProject.OTM)/Microsoft Office Outlook 对象/ThisOutlookSession”
3、到右边使用下面内容:
Option Explicit
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim oItem As MailItem
Dim oRecipient As Recipient
Set oItem = Item
Set oRecipient = oItem.Recipients.Add("user1@server1.com")
oRecipient.Type = Outlook.olBCC
Set oRecipient = oItem.Recipients.Add("user2@server2.com")
oRecipient.Type = Outlook.olBCC
Set oRecipient = oItem.Recipients.Add("user3@server3.com")
oRecipient.Type = Outlook.olBCC
oItem.Recipients.ResolveAll
oItem.Save
Set oRecipient = Nothing
Set oItem = Nothing
End Sub
4、可增删BCC收件人地址
5、保存关闭VBA编辑器
6、进入“工具-信任中心”,在“宏安全性”选择中
7、选择“为所有宏提供警告”或者“不执行宏安全性检查”(建议选择前者)
8、选择“为所有宏提供警告”重新启动Outlook,会有询问提示
现在你发出去的每一封邮件都自动抄送给了代码中设置的那些BCC收件人了。
----------
方法二:
在outlook里面设置里面降低宏安全性;
重启outlook;
Alt+F11后,选择左侧的thisoutlooksession,在弹出的窗口中加入以下内容:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
strBcc = "wayne_tong@qq.com" '请改成你要密送的邮件地址
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "不能解析密件抄送人邮件地址, " & _
"请确认是否仍然发送邮件?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"不能解析密件抄送人邮件地址")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub
保存重启outlook即可。
重点是要降低宏安全性,并适当重启。代码部分只需要修改红字部分即可
转自: http://will0690.blog.163.com/blog/static/45668020109142012742/
最新文章
- W3C代码标准规范
- variably modified 'dist' at file scope|
- (六)责任链模式-C++实现
- 保存vim的ide环境
- BNUOJ 1037 精神控制
- 关于在linux下清屏的几种技巧
- 声明:function FileSetAttr ( const FileName : string
- 分布式传输协调程序MSDTC配置
- nginx 重写 rewrite 基础及实例(转)
- jQuery的fancybox插件
- python 中函数参数传递形式
- Core Animation文档翻译 (第一篇)
- Python -- Records项目学习
- UMAIL安装教程
- [原创]Xilinx工具关联UEStudio
- 可迭代对象 TO 迭代器
- Maths | 为什么点积等价于投影后的乘积
- vue--v-model表单控件绑定
- kettle学习笔记(九)——子转换、集群与变量
- flow 静态类型检查 js
热门文章
- 译文 编写一个loader
- 如何用纯 CSS 创作一个雷达扫描动画
- PAT Basic 1071
- PAT Basic 1015
- PAT Basic 1014
- mac下secureCRT 客户端 $redis-cli回车后没有反应的解决办法
- Leetcode 372.超级次方
- POJ-1743 Musical Theme,后缀数组+二分!
- Codeforces Round #358 (Div. 2)——C. Alyona and the Tree(树的DFS+逆向思维)
- BZOJ 3282 Tree ——Link-Cut Tree