0
Ich habe eine Funktion, die eine bestimmte Mail mit dem Betreff finden, ich möchte auch einige Methoden hinzufügen, um herauszufinden, ob die E-Mail eine gültige digitale Signatur hat.Wie kann ich überprüfen, ob eine E-Mail eine gültige digitale Signatur hat - 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
Gelöst >> \t \t Wenn myItem.MessageClass = "IPM.Note.SMIME.MultipartSigned" Dann \t \t \t \t \t \t \t \t \t VerifyEmailSignature = "True" \t \t \t \t \t Ende Wenn –
Überlegen Sie, diese aus der unbeantworteten Fragenliste zu nehmen, indem Sie eine Antwort posten und dann akzeptieren. http://stackoverflow.com/help/self-answer – niton