メールに有効なデジタル署名があるかどうかを確認する方法 - 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

は>> \t \t myItem.MessageClass = "IPM.Note.SMIME.MultipartSigned" なら、\t \t \t \t \t \t \t \t \t VerifyEmailSignature = "true" を解決

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