利用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 = "[email protected]" '请改成你要密送的邮件地址

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设置发送邮件时默认密送到指定邮箱图解教程

分享给朋友:
您可能感兴趣的文章:
随机阅读: