У меня есть следующий сценарий, который я пытаюсь решить.
Каждое полученное письмо должно автоматически отправляться через 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