메일에 유효한 디지털 서명이 있는지 확인하는 방법 - VBA

제목이있는 특정 메일을 찾는 기능이 있으며 메일에 유효한 디지털 서명이 있는지 알아 보는 몇 가지 방법을 추가하고 싶습니다.메일에 유효한 디지털 서명이 있는지 확인하는 방법 - VBA

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

출처

2016-10-21 Ahmet Yalçınkaya

그런 다음 \t \t myItem.MessageClass = "IPM.Note.SMIME.MultipartSigned"만약 \t \t \t \t \t \t \t \t \t VerifyEmailSignature = "참">> 해결 해결 \t \t \t \t \t 끝 부분 –

답변을 게시 한 후 답변을 수락하여 대답하지 않은 질문 목록에서 제거하는 것이 좋습니다. http://stackoverflow.com/help/self-answer – niton

는

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

출처

2016-10-23 17:58:05

메일에 유효한 디지털 서명이 있는지 확인하는 방법 - VBA

답변

관련 문제