枫芸志

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设置发送邮件时默认密送到指定邮箱》
标签： Outlook
分享：