如何保存收到的郵件的數字簽名

Question

我正試圖保存當前打開的郵件的數字簽名。

現在我意識到，Outlook阻止訪問以編程方式加密/簽名新電子郵件。我在這裏關注已收到的消息。

到目前爲止，我只能使用MessageClass屬性來檢測簽名的電子郵件。

Function GetCurrentItem() As Object 
    Dim objApp As Outlook.Application 

    Set objApp = CreateObject("Outlook.Application") 
    On Error Resume Next 
    Select Case TypeName(objApp.ActiveWindow) 
     Case "Explorer" 
      Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1) 
     Case "Inspector" 
      Set GetCurrentItem = objApp.ActiveInspector.CurrentItem 
     Case Else 
      ' anything else will result in an error, which is 
      ' why we have the error handler above 
    End Select 

    Set objApp = Nothing 
End Function 

Sub DoExport() 
    Set CurrentItem = GetCurrentItem() 
    If CurrentItem.MessageClass = "IPM.Note.SMIME.MultipartSigned" Then 
     MsgBox CurrentItem.MessageClass 
    End If 
End Sub 

Answer 1

即使在加密和簽名的郵件上，Messageclass似乎總是「IPM.Note」。
我使用此代碼讀取誰簽署了郵件。
Set PropertyAccessor = mailitem.PropertyAccessor
If PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/id/{00020328-0000-0000-C000-000000000046}/9104001f") <> "" Then
END
End If