VBScript

Specify a Certificate for Encrypted Email

Demonstrates the Chilkat Email.AddEncryptCert method, which explicitly specifies a certificate to use when sending encrypted email. Call it once per recipient certificate; ClearEncryptCerts clears the list. This example loads a recipient certificate, registers it, and enables encrypted sending.

Background: When encrypting to multiple people, each recipient needs to be able to decrypt with their own private key. S/MIME handles this by encrypting the message's one-time content key separately under each recipient's public certificate and including all of those wrapped keys in the message. AddEncryptCert is how you build that recipient list — one call per certificate — giving explicit control over exactly whose certificates are used rather than relying on automatic lookup.

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 AddEncryptCert method, which explicitly specifies a certificate for
'  sending encrypted email.  Call it once per recipient certificate.  Use ClearEncryptCerts
'  to clear the list.

set email = CreateObject("Chilkat.Email")
email.Subject = "Encrypted email"
email.Body = "Encrypted to the specified recipient certificate(s)."
email.From = "alice@example.com"
success = email.AddTo("Bob","bob@example.com")

'  Load a recipient certificate (public key) and add it to the encryption cert list.
set cert = CreateObject("Chilkat.Cert")
success = cert.LoadFromFile("qa_data/certs/recipient.cer")
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

success = email.AddEncryptCert(cert)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

'  Request encrypted sending.
email.SendEncrypted = 1

outFile.WriteLine("Added the recipient's encryption certificate.")

'  Note: The path "qa_data/certs/recipient.cer" is a relative local filesystem path,
'  relative to the current working directory of the running application.

outFile.Close