Управление кнопками шифрования и цифровой подписи в Outlook 2007 или более поздней версии

Я работаю над небольшим скриптом на 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 поддерживает по умолчанию.

Есть другие идеи? Спасибо!

5
задан Bogdan 25 July 2011 в 07:08
поделиться