在Outlook中如何实现自动密送
Software 2010-10-01 16:20:12 阅读167 评论1 字号:大中小 订阅
密抄到多人这个需要用到宏的,1、在Outlook里面键入ALT+F11打开VBA编辑器;
2、键入CTRL+R激活左边的那个工程面板,展开并双击上面的“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
' 在这里参考如下代码根据需要增删BCC收件人
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、键入CTRL+S保存,再键入ALT+Q退出VBA编辑器返回Outlook主界面;
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即可。测试outlook2003~2010都没问题。
重点是要降低宏安全性,并适当重启。代码部分只需要修改红字部分即可
转自: http://will0690.blog.163.com/blog/static/45668020109142012742/
在Outlook中如何实现自动密送相关推荐
- 如何显示密件抄送人员地址_如何在Outlook中使用规则自动密件抄送电子邮件
如何显示密件抄送人员地址 Sometimes, you might want to copy your sent emails to another address without the recip ...
- Exchange企业实战技巧(26)在Outlook中打开多个邮箱
工作中,有时要需要让某个用户在outlook中同时打开多个exchange邮箱,对于outlook2010来说,是支持多个Exchange邮箱用户账户的并存,而outlook2007则不支持.那该功能 ...
- 百度链接提交自动推送JS代码版
百度的主动推送功能的确有很多好处,但即使百度给出了范例,但对初级开发者来说,开发适合自身cms系统的主动推送代码依然不易! 什么是自动推送工具?自动推送工具解决了什么问题? 自动推送JS代码是百度站长 ...
- outlook——分类及密送
最近终于把领导推荐的书<小强升职记>看得差不多了,其中就有提到关于邮箱的整理.虽然整理邮箱一直在我的脑海中,但是苦于一直没有落地.今天终于把他落地了.对邮箱进行了分类,新建不同文件夹,并且 ...
- domino获取邮件中的密送的收件人-字段:Recipients
比如QQ-formail提供邮件密送服务.密送收件人不会出现邮件数据中sendto.copyto字段中.密送的中的收件人存储在 Recipients字段中. 如果你的服务器发现空邮件,可以 检查Rec ...
- 通过javaMail发送邮件,可选添加多个收件人,密送,抄送,多个附件,超实用
自己通过学习多人的代码,并整理了一个简单,调用方便的通过javaMail发送邮件.只需填写发件邮箱地址,密码:收件人地址,附件,选择是否保存,设置自己发送邮件时的昵称就ok了.代码自动匹配设置smtp ...
- 通过javaMail发送邮件,可选添加多个收件人,密送,抄送,多个附件
通过javaMail发送邮件,可选添加多个收件人,密送,抄送,多个附件 https://blog.csdn.net/qq_35434831/article/details/79666035 版权声明: ...
- 邮件发送技巧:TO, CC, BCC(收件人、抄送、密送)
TO(收件人),CC(抄送),BCC(密送)都放谁哟? 1. 发送会议记录 俺们这样的小助理,经常要做各种会议记录,与会者,有该来的没来,有不该来的来了的,以前我都乱发一气,把他们全部都放到收件人一栏 ...
- 网络爬虫-自动推送小说最新章节的小应用--懒惰的追小说者
需求: 本人在追两部小说,<大主宰>和<斗罗大陆3-龙王传说>,每过几个小时就去打开网页,点击bookmark,看看有没有更新.现在的需求是:我不需要用浏览器查看有没有更新,只 ...
最新文章
- react.js 引用 NavBar 报错svg-spite-loader
- 力压华为小米!安兔兔1月安卓性能榜第一名是它!
- 新冠疫情,或加速银行数字化服务转型
- android 下载 文件怎么打开方式,apk文件怎么打开?
- 什么是UDS诊断协议?
- 图像各向异性扩散(一)
- CAN总线的终端电阻为什么常用120Ω
- 基于卷积神经网络的像素级图像融合——硕士论文阅读笔记
- physx: pid balance controll
- feil在java里什么意思_JAVA 中的 - 是什么意思?
- Linux公社FTP服务器地址及用户名密码
- 08-小蜜蜂单片机定时器
- Warshall算法(用法详解,并转换成代码的形式)
- android修改短信内容,Android手机
- 当 Rainbond 遇上龙蜥!小龙带你玩转一站式云原生,点击开启
- MATLAB 与 音频处理 相关内容摘记
- SQLZOO selfjoin/zh——爱丁堡巴士
- 滴滴 - dispatching
- 淘宝双十一spark大作业 林子雨问题+解决
- android自定义下拉筛选,android自定义Spinner下拉菜单(下拉列表框)样式