VBScript

Check if an Email Was Received Digitally Signed

Demonstrates the read-only Chilkat Email.ReceivedSigned property, which is true if the email was originally received carrying one or more digital signatures. Knowing a message was signed is separate from knowing the signature checked out, so this example also reads SignaturesValid to report whether the signed content verified.

Background: A digital signature on an email (S/MIME) provides two things: authenticity (it was really sent by the holder of a particular certificate) and integrity (the content was not altered in transit). The sender signs a hash of the message with their private key; the recipient verifies it with the sender's public certificate. ReceivedSigned simply tells you a signature is present — verifying it is a separate step exposed through SignaturesValid.

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.ReceivedSigned property, which is true if this
'  email was originally received with a digital signature.  Use SignaturesValid to
'  determine whether the signed content actually verified.

set email = CreateObject("Chilkat.Email")

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

If (email.ReceivedSigned = 1) Then
    outFile.WriteLine("This email was received with a digital signature.")
    If (email.SignaturesValid = 1) Then
        outFile.WriteLine("All signatures are valid.")
    Else
        outFile.WriteLine("One or more signatures are NOT valid.")
    End If

Else
    outFile.WriteLine("This email was not signed.")
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