Excel VBA how to identify encrypt mails in outlook 365

[kashif.special2005]

Hi All,

I hope all of you are doing great and staying safe.

I have a task in Outlook through Excel VBA, I want to identify encrypted mails in a folder in outlook365 and if that mail is encrypted then skip/move (another folder) this mail and go to next mail, the problem is that there is 2 types of encrypted mails I am receiving in that folder.

1st Encrypted Mails: This type of mails I can easily identify with the property "MessageClass" and see that if it is "IPM.Note.SMIME" then ignore this mail, however I am not able to move this mail from this folder to another folder, the VBA is giving an error message when I am trying to move this type of encrypted mail.

2nd Encrypted Mails: This type of mails is showing a "Lock" icon on the mail and when I am fetching the value of the property "MessageClass" it is giving "IPM.Note" however this mail is an encrypted mail, so my problem is how can I identify this kind of encrypted mails.

Thanks in advance for all of your support.

Thanks
Kashif