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

    打开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中如何实现自动密送



    本博客所有文章如无特别注明均为原创。
    复制或转载请以超链接形式注明转自枫芸志,原文地址《Outlook设置发送邮件时默认密送到指定邮箱
    标签:
    分享:

已经有5 条评论抢在你前面了~

  1. 沙发
    mailaile 2012年6月18日 下午6:12

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

    [回复]

  2. 板凳
    uubaobao 2012年5月23日 上午10:41

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

    [回复]

  3. 地板
    失去的地平线 2012年5月17日 上午3:38

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

    [回复]

    晴枫

    晴枫 回复:

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

    [回复]

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