VBA macro for auto outlook email encryption

VBA macro to perform auto outlook email encryption based on user input while sending an outlook mail. This macro runs in the background when user clicks on send button.

What this macro does?

1. Checks whether the outlook mail is already encrypted manually by the sender

2. If the mail is already encrypted, then this macro doesn’t do anything. The mail just goes.

2. If the mail is not already encrypted and when user clicks on send button then it pop ups a confirmation window asking the user whether to encrypt (automatically) and send the mail or just send a non-encrypted mail

3. If the user clicks on “Yes” button, it adds encryption automatically and sends the encrypted mail.

4. If the user clicks on “No” button, it sends unencrypted message like a normal mail.

VBA macro code: