如何设置outlook实现自动秘密抄送邮件的功能?
2012-12-27 07:51
656 查看
很多朋友会发现虽然在家里同步了公司的邮箱可以正常收发邮件,可是每当使用家里的outlook发送相关邮件的时候,在公司的邮箱里找不到相关的发件记录,只能同步收件箱,而不能同步发件箱应该是比较让人困扰的问题,美的是outlook有个很好的功能,那就是秘密抄送,在收件人不知道的情况下,秘密的抄送邮件。功能确实不错,可是每次只能手动操作,而非系统自动,在自动化如此发达的现代,这种情况是不能一而再再而三的出现的,那么现在就分享一个好的方法,通过outlook的后台设置实现发送邮件时自动秘密抄送邮件的功能吧!
自动秘密抄送邮件是需要用到宏的,具体方法如下:
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,看到提示是否否用宏,选择启用。
9、发封测试邮件,测试是否设置成功。
以上方法基本适用于office2007,2010等,so easy!
自动秘密抄送邮件是需要用到宏的,具体方法如下:
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,看到提示是否否用宏,选择启用。
9、发封测试邮件,测试是否设置成功。
以上方法基本适用于office2007,2010等,so easy!
相关文章推荐
- 如何设置outlook实现自动秘密抄送邮件的功能?
- 如何实现Outlook 2010 下载邮件后自动删除服务器上的邮件
- 如何新建Outlook电子邮件规则实现邮件自动分类
- Mac版Outlook如何设置自动接收邮件时间
- OutLook 设置自动回复邮件功能
- [Outlook] outlook如何实现自动CC和BCC邮件发送
- Windows7系统如何取消U盘自动运行功能 win7设置关闭U盘自动运行教程图解
- [ASP.NET]自动发送邮件功能的实现
- 如何设置eclipse的自动补齐功能
- 如何实现自动转换网址为链接的功能
- 如何关闭或者灵活设置Win7系统的自动播放功能
- Python实现自动发送邮件功能
- 使用Excel和OutLook实现自动发送邮件
- 使用Outlook插件实现自动保存邮件为TestTrack记录
- 引用 如何开通雅虎免费邮箱的POP功能,自动转发邮件
- 举例说明如何在android中利用Service来实现后台发送邮件功能
- 如何才能实现文本框的自动提示功能呢
- eclipse代码自动提示设置、如何配置eclipse的代码自动提示功能(同时解决自动补全变量名的问题)?
- Linux下如何实现U盘、SD卡自动挂载功能?
- 以向VS 程序打包集成自动写入注册表功能为例,介绍如何实现自由控制安装过程