Я работаю над небольшим скриптом в VBA, который позволил бы мне автоматически пересылать сообщения, в том числе зашифрованные.
Единственная проблема, с которой я столкнулся, - это программное удаление шифрования.
Iдумал, что смогу сделать это так:
- Откройте сообщение
- , снимите флажок Параметры шифрования и подписи
- Переслать сообщение
СПри таком подходе я не знаю, как получить ссылку на кнопки «Шифровать и подписать».
Вот код, который работает для стандартных незашифрованных писем.Я установил этот метод как «Правило электронной почты» для всех входящих писем:
Sub test_macro(MyMail As MailItem)
MyMail.Display
'Need some API here to access the decrypt button
MyMail.Recipients.Add "otheraddress@company.com"
MyMail.Recipients.Add "otheraddress2@company.com"
Item_Send (MyMail)
End Sub
Фон
Здесь необходимо переадресовывать все входящие сообщения на адрес отделадля определенных людей.Пересылка их в зашифрованном виде вызывает всевозможные проблемы с сертификатами между различными версиями Outlook (2003/2007/2010 / и т. Д.), Поскольку все они должны иметь закрытый ключ адреса отдела и, похоже, конфликтуют с их личным сертификатом учетной записи (я получаю всесвоего рода ошибочное поведение, иногда это работает, иногда нет).
Альтернативные подходы
Я понимаю, что из-за ограничений безопасности текущий подход будетвероятно, не работает, поэтому я ищу альтернативы.Может быть, если я создам плагин для Outlook, это даст мне доступ к некоторому API безопасности для расшифровки входящих сообщений?
Создать POP-клиент, получить, вручную расшифровать сообщения и переслать его.Это, вероятно, самый сложный подход, поскольку существует множество форматов / алгоритмов шифрования, которые Outlookks поддерживает по умолчанию.
Есть еще идеи?Спасибо!