Добавить BCC в Outlook через VBS (через GPO) - PullRequest
0 голосов
/ 04 июня 2019

У меня есть следующий сценарий, который я пытаюсь решить.

Каждое полученное письмо должно автоматически отправляться через BCC на второй адрес электронной почты для целей архивирования (другие способы архивации меня не интересуют!)

Я нашел множество примеров кода, таких как:

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 и добавляю туда код.

НО , так как я хочу использовать его в среде AD, я хотел бы сделать это через настройки GPO. Я установил файлы шаблонов Office 2016 ADML / ADMX, но не нашел никакой опции, настраивающей автоматическую скрытую копию для каждой отправляемой почты.

Затем я нашел интересную статью ( здесь ) об использовании VBS-Script для установки подписи электронной почты и подумал, что это может сработать.

Может кто-нибудь сказать мне, если это возможно (я не эксперт VBS), чтобы написать сценарий, который запускается при входе пользователя, который добавляет скрытую копию к каждой отправляемой почте?

С уважением Alkahna

1 Ответ

0 голосов
/ 04 июня 2019

Нет, вы не можете сделать это с помощью объекта групповой политики - в Outlook нет функции коробки, которая бы автоматически BCC.Это должно быть сделано в коде - скрипте или надстройке COM.

...