首页 > 软件技巧 > Outlook设置发送邮件时默认密送到指定邮箱

Outlook设置发送邮件时默认密送到指定邮箱

2012年5月12日 发表评论 阅读评论

打开Outlook,按Alt+F11打开VBA窗口,在左侧窗口依次展开至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 = "backup@gmail.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://witmax.cn/outlook-auto-bcc.html




分类: 软件技巧 标签: 10,221次阅读
  1. 2012年5月17日03:38 | #1

    有几天没转转了,来看看你。
    貌似你最近outlook研究的比较多啊,可惜我习惯用OE。
    以前用WM5.0 6.5的时候被迫用过outlook的联系人备份手机数据。

    [回复]

    晴枫 回复:

    @失去的地平线, 习惯了Outlook,多个邮箱收发邮件还挺方便的

    [回复]

  2. 2012年5月23日10:41 | #2

    这个介绍的不错,正好是我需要的,收藏学习了啊。多谢博主。

    [回复]

  3. 2012年6月18日18:12 | #3

    这样不检查下还是挺危险的,密密的将邮件发给了密送到指定邮箱

    [回复]

  1. 2016年12月1日22:32 | #1
订阅评论
  欢迎参与讨论,请在这里发表您的看法、交流您的观点。

无觅相关文章插件,快速提升流量