Outlook 自动发送 密抄 自己 可多人密抄

来源:互联网 发布:unity3d ugui摇杆 编辑:程序博客网 时间:2024/05/28 19:24

这个需要用到宏的,具体步骤如下:

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.olBCCSet oRecipient = oItem.Recipients.Add("user2@server2.com") oRecipient.Type = Outlook.olBCCSet oRecipient = oItem.Recipients.Add("user3@server3.com") oRecipient.Type = Outlook.olBCCoItem.Recipients.ResolveAlloItem.SaveSet oRecipient = NothingSet oItem = NothingEnd Sub

4、根据需要按照我上面代码中的注释增删BCC收件人地址; 5、键入CTRL+S保存,再键入ALT+Q退出VBA编辑器返回Outlook主界面; 6、选择菜单“工具-信任中心”,在弹出窗口中选择“宏安全性”; 7、选择“为所有宏提供警告”或者“不执行宏安全性检查”(建议选择前者); 8、重新启动Outlook,看到提示是否否用宏,选择启用。 现在你发出去的每一封邮件都自动抄送给了代码中设置的那些BCC收件人了。


原创粉丝点击