Я работаю над небольшим скриптом на VBA, который позволит мне автоматически пересылать сообщения, в том числе зашифрованные.
Единственная проблема, с которой я столкнулся, - это удаление шифрования программным способом.
Я думал Я мог бы сделать это так:
При таком подходе я не знаю, как получить ссылку на кнопки «Шифровать и подписать».
Вот код, который работает со стандартными незашифрованными сообщениями. Я установил этот метод как «правило электронной почты» для всех входящих писем:
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, извлеките, вручную расшифруйте сообщения и пересылайте его. Это, вероятно, самый сложный подход, поскольку существует множество форматов / алгоритмов шифрования, которые Outlook поддерживает по умолчанию.
Есть другие идеи? Спасибо!