Как проверить, имеет ли почта действительную цифровую подпись - VBA

Question

У меня есть функция, которая находит конкретную почту с темой, я также хочу добавить некоторые методы, чтобы узнать, имеет ли почта действительную цифровую подпись.

Set objOutlook = CreateObject("Outlook.Application") 
Set myNameSpace = objOutlook.GetNameSpace("MAPI") 
Set ClientFolder = myNameSpace.GetDefaultFolder(6) 'Inbox = 6 
Set myItems = ClientFolder.Items 
Set myItem = myItems.GetFirst 
Set colSyc = myNameSpace.SyncObjects 
Set syc = colSyc.AppFolders 
ClientFolder.InAppFolderSyncObject = True 
syc.Start 'Sync inbox at most updated state 

For intMailCount = 0 to ClientFolder.Items.Count - 1 ' Check subject line for a match  
    If Instr(myItem.Subject, Subject) = 1 AND myItem.Unread = True then    
     VerifyEmailSubject = "True" 

    'validation under here does not work properly and allways returns true and need to find something here for validation 
    If myItem.MessageClass <> "IPM.Note.SMIME" Or myItem.MessageClass <> "IPM.Note.Secure" Or myItem.MessageClass <> "IPM.Note.Secure.Sign" then 
     msgbox "signed" 
    End If 
     myItem.Unread = false 'Set mail status to read to avoid further test assertion errors.  
    Exit For   
End If 
    Set myItem = myItems.GetNext 
Next 

Answer 1

Решенные

If myItem.MessageClass = "IPM.Note.SMIME.MultipartSigned" Then 
    VerifyEmailSignature = "True" 
End If