VBScript

Check if an Email Was Received Encrypted

Demonstrates the read-only Chilkat Email.ReceivedEncrypted property, which is true if the email was originally received with encryption. This records how the message arrived and remains useful even after successful automatic decryption, when the visible body is already the decrypted content. This example loads an email and reports whether it was received encrypted.

Background: When Chilkat loads an encrypted (S/MIME) email and has the recipient's private key available, it decrypts the content automatically — so the body you read is already in the clear. That convenience creates a question: was this message originally protected in transit? ReceivedEncrypted answers it, letting you distinguish a message that was genuinely encrypted end-to-end from one that was sent as plain text. Pair it with Decrypted to confirm decryption actually succeeded.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Demonstrates the read-only Email.ReceivedEncrypted property, which is true if
'  this email was originally received with encryption.  It remains meaningful even
'  after Chilkat automatically decrypts the message.

set email = CreateObject("Chilkat.Email")

success = email.LoadEml("qa_data/eml/received.eml")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

If (email.ReceivedEncrypted = 1) Then
    outFile.WriteLine("This email was originally received encrypted.")
Else
    outFile.WriteLine("This email was not received encrypted.")
End If

'  Note: Paths such as "qa_data/..." are relative local filesystem paths,
'  relative to the current working directory of the running application.

outFile.Close