Question

我正在尝试解决以下情况。

每个要发送的邮件都应通过密件抄送自动发送到另一个电子邮件地址以进行存档（我对其他存档方式没有兴趣！）

我发现了很多代码示例，例如：

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 = "someone@somewhere.dom"

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

效果很好如果，我打开Outlook并在其中添加代码。

但是，因为我想在广告环境中使用它，所以我想通过GPO设置来实现。我安装了Office 2016 ADML / ADMX模板文件，但发现没有选项可以为每个发送的邮件配置自动密件抄送。

然后，我发现了一篇有趣的文章（here），该文章有关使用VBS脚本设置电子邮件签名，并认为这可以解决问题。

有人可以告诉我（我不是VBS专家）是否有可能编写一个在用户登录时运行的脚本，该脚本在发送的每封邮件中都添加密件抄送？

致谢碱土

Answer 1

否，您无法通过GPO进行操作-Outlook中的框功能是否会自动执行密件抄送，这一点就不存在。它必须用代码完成-脚本或COM插件。

通过VBS在Outlook中添加BCC（通过GPO）

1 个答案: