none
При отправке писем внешним получателям необходимо что бы выходило окно с предупреждением на отправку сообщения RRS feed

  • Вопрос

  • Добрый день!

    Стоит задача: При отправке сообщения внешним адресатам необходимо что бы выходило сообщение с предупреждением типа: "Адресат находится не в вашей организации, хотите ли Вы отправить сообщение" и выбор отправить сообщение или нет. В Экчендже 2016 не нашел такого функционала, но в интернете нашел скрипт VBA:

    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
     Dim recips As Outlook.Recipients
     Dim recip As Outlook.Recipient
     Dim pa As Outlook.PropertyAccessor
     Dim prompt As String
     Dim strMsg As String
     Dim Address As String
     Dim lLen
    Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
    Set recips = Item.Recipients
     For Each recip In recips
     Set pa = recip.PropertyAccessor
     
     Address = LCase(pa.GetProperty(PR_SMTP_ADDRESS))
     lLen = Len(Address) - InStrRev(Address, "@")
     Select Case Right(Address, lLen)
        Case "test1.ru", "test2.ru"
            
        Case Else ' remove case else line to be warned when sending to the addresses
         strMsg = strMsg & " " & Address & vbNewLine
     End Select
     Next
    If strMsg <> "" Then
     prompt = "Адресат находится не в вашей организации, хотите ли Вы отправить сообщение :" & vbNewLine & strMsg & vbNewLine & "" & vbNewLine & vbNewLine & "Подтвердить отправку?"
     If MsgBox(prompt, vbYesNo + vbExclamation + vbMsgBoxSetForeground, "Warning") = vbNo Then
     Cancel = True
     End If
     End If
    End Sub

    Теперь возникает несколько вопросов:

    1. Можно ли такую задачу реализовать средствами Экчендж 2016?

    2. Каким способом можно через групповые политики распространить на компьютеры пользователей этот VBA скрипт и прописать его в OUTLOOKE? Чтобы пользователю это не было заметно.

    23 октября 2019 г. 9:01

Ответы


  • 1. Можно ли такую задачу реализовать средствами Экчендж 2016?

    2. Каким способом можно через групповые политики распространить на компьютеры пользователей этот VBA скрипт и прописать его в OUTLOOKE? Чтобы пользователю это не было заметно.

    Здравствуйте,

    1. Нет

    2. Вместо VBA скрипта сделать так называемый COM add-in для Outlook и распространять его через политики.  

    24 октября 2019 г. 14:54

Все ответы