Outlook 默认抄送宏

本文详细介绍了如何使用宏在Outlook中自动抄送BCC收件人的步骤,包括打开VBA编辑器、设置BCC收件人、保存宏并启用宏安全性的全过程。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 

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

 

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收件人了。

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值