[Outlook] outlook如何实现自动CC和BCC邮件发送

由于需要在不同机器上发送邮件,最终发送的邮件会在不同的机器上,最终导致邮件丢失,以后想找也找不回来,故在网上搜索一翻,找到解决办法。

1. 实现自动CC邮件发送:

方法:使用outlook的配置规则

优点:方法简单

缺点:发出去的邮件别人可以看到CC里面的人

开工:

a. HOME->Rules->Manage Rules & Alerts->New Rule,选择Apply rule on messages I send:

image

b. 填写相应账号:

image

c. 填写CC账号,

image

d. 点击Finish,完成设置,发送一封邮件试试,果然成功,但是不好之处在于,cc里面显示着自己的名字,这样好像有点不好,继续尝试其他方法

2. 实现自动BCC邮件发送:

方法:使用宏编程实现,其实很简单,根本不需要我们懂编程,呵呵

优点:能达到我想要的效果

缺点:暂时没想到

开工:

a. 打开outlook->ALT + F11,出现如下界面,双击打开ThisOutlookSession,进入编辑界面:

image

b. 将以下代码贴入编辑区域:

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
    
    ' #### USER OPTIONS ####
    ' address for Bcc — must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = "zhanggy@orientpay.com"
    
    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If
    
    Set objRecip = Nothing
End Sub

c. 保存(CTRL+S)后,关闭该窗口,打开outlook->FILE->Options->Trust Center->Trust Center Settings,进行如下设置:

image

d. 设置完成之后,大功告成,重新启动outlook,会有个提示是否启用宏,选择是即可,赶紧尝试一下,发送一封邮件,哇哈成功~!

备注:

以上两种办法在2013和2010上均尝试成功。

参考连接:

http://www.crazycen.com/windows/1432.html

http://jingyan.baidu.com/article/6dad5075ad0c4ca123e36ef3.html

posted @ 2014-09-02 14:51 我是小菜鸟 阅读(...) 评论(...) 编辑 收藏