Получить сертификат из подписанных писем (Outlook 2007)

Question

Я работаю над надстройкой для Outlook 2007. Надстройка должна получить сертификат из подтвержденной подписанной (не зашифрованной) почты и проверить, хранится ли ее эмитент в списке контактов Outlook. Если это так, надстройка должна добавить сертификат к определенному контакту. Часть, где я застрял прямо сейчас, должен получить сертификат от MailItem. Я узнал, что OOM не поддерживает функциональность, в которой я нуждаюсь.

Есть ли способ извлечь этот сертификат (кроме, возможно, выкупа)?

Answer 1

Сертификат хранится в приложении p7m. Однако обратите внимание, что объектная модель Outlook представляет все подписанные и зашифрованные сообщения как обычные объекты MailItem. Он даже возвращает поддельный объект IMessage Extended MAPI из свойства MailItem.MAPIOBJECT, поэтому приложение p7m никогда не доступно.

Вы можете использовать расширенный MAPI (только C++ или Delphi), чтобы открыть сообщение и извлечь вложение p7m. Вы можете увидеть данные в OutlookSpy - выберите подписанное сообщение, нажмите кнопку «Сообщение», затем IMAPISecureMessage | GetBaseMessage, перейдите на вкладку GetAttachmentTable.

При использовании Redemption (на любом языке) является вариант, он выставляет RDOEncryptedMessage объект

set Session = CreateObject("Redemption.RDOSession") 
Session.MAPIOBJECT = Application.Session.MAPIOBJECT 
set Msg = Session.GetMessageFromId(Application.ActiveExplorer.Selection(1).EntryId) 
if TypeName(Msg) = "RDOEncryptedMessage" Then 
    MsgBox Msg.SignedByName 
End If