Xojo Plugin

Set the Recipient Encryption Certificate

See more Email Object Examples

Demonstrates the Chilkat Email.SetEncryptCert method, which sets the explicit recipient encryption certificate for sending an encrypted email. This example loads the recipient's certificate, sets it, and enables encrypted sending.

Background: To encrypt a message for a recipient you need their public certificate — hence a .cer file (no private key) suffices. SetEncryptCert specifies a single recipient certificate; to encrypt for multiple recipients, use AddEncryptCert once per certificate. Either way, setting SendEncrypted to true is what actually requests encryption when the message is sent.

Chilkat Xojo Plugin Downloads

Download Chilkat for Xojo Plugin

Xojo Plugin

Dim success As Boolean
success = False

//  Demonstrates the SetEncryptCert method, which sets the explicit recipient encryption
//  certificate for sending an encrypted email.

Dim email As New Chilkat.Email
email.Subject = "Encrypted email"
email.Body = "This message will be sent S/MIME encrypted."
email.From = "alice@example.com"
success = email.AddTo("Bob","bob@example.com")

//  Load the recipient's certificate (only the public key is needed to encrypt).
Dim cert As New Chilkat.Cert
success = cert.LoadFromFile("qa_data/certs/recipient.cer")
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

//  Set the explicit recipient encryption certificate.
success = email.SetEncryptCert(cert)
If (success = False) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

//  Request encrypted sending.
email.SendEncrypted = True

System.DebugLog("Encryption certificate set.")

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