Как я могу проверить, имеет ли почта действительную цифровую подпись - 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