[求助]如何自动密送邮件

kulegao

Outlook发送邮件时，如何自动将邮件密送到某个备份邮件地址。

通过设置规则可以抄送，但是不能密送，：（

kulegao

outlook不能实现这个功能么？我觉得不应该吧

lyexplorer

在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 = "XXXXXXXX@163.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

thisisisis

有些地方说加代码，但总不成功，不知道怎么办了，也不知道是不是哪里操作或者设置不对。唉

lmswy

在公司發的郵件在家裡的電腦上沒有地方査！這下解決了！

dolphin_1960

lyexplorer 发表于 2011-12-22 00:46
在outlook中alt+F11打开vba，把下面的内容放到"ThisOutlookSession"中就可以实现每次写完邮件点“发送”的时 ...

试了下，但是不行。。。
有跳红的地方，不知道是什么原因