Xojo Plugin

Send Encrypted Email using Certificate in Apple Keychain

See more Apple Keychain Examples

Send encrypted (S/MIME) email using a certificate found in the Apple Keychain.

Note: This example requires Chilkat v10.1.2 or later.

Xojo Plugin

Dim success As Boolean
success = False

Dim email As New Chilkat.Email
email.Subject = "This email is encrypted"
email.Body = "This is a S/MIME encrypted mail"
email.From = "Joe <joe@example.com>"

// Emails are encrypted using the recipient's certificate.
Dim recipientEmailAddr As String
recipientEmailAddr = "jane@example2.com"
success = email.AddTo("",recipientEmailAddr)

// Indicate that the email is to be sent encrypted.
email.SendEncrypted = True

Dim cert As New Chilkat.Cert

// -----------------------------------------------
// This example requires Chilkat v10.1.2 or later.
// -----------------------------------------------

// The recipient's certificate is used to encrypt.
// This will load the certificate from the Apple Keychain.
success = cert.LoadByEmailAddress(recipientEmailAddr)
If (success <> True) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

// Specify the certificate to be used for encryption.
success = email.SetEncryptCert(cert)
email.SendEncrypted = True

Dim mailman As New Chilkat.MailMan
mailman.SmtpHost = "smtp.example.com"
mailman.SmtpUsername = "joe@example.com"
mailman.SmtpPort = 587
mailman.StartTLS = True

// We'll get the SMTP password from the Apple Keychain.
// See how we originally saved the email credentials to the Keychain here:
// Save Email Credentials in Apple Keychain or Windows Credentials Manager
Dim secrets As New Chilkat.Secrets

// On Windows, this is the Windows Credentials Manager
// On MacOS/iOS, it is the Apple Keychain
secrets.Location = "local_manager"

// Specify the name of the secret.
// service and username are required.
// appName and domain are optional.
// Note: The values are arbitrary and can be anything you want.
Dim json As New Chilkat.JsonObject
success = json.UpdateString("appName","MyEmailApp")
success = json.UpdateString("service","SMTP")
success = json.UpdateString("domain","example.com")
success = json.UpdateString("username","joe@example.com")

mailman.SmtpPassword = secrets.GetSecretStr(json)

// Send the encrypted email.
// The email is encrypted and sent within the SendEmail function.
success = mailman.SendEmail(email)
If (success <> True) Then
    System.DebugLog(mailman.LastErrorText)
    Return
End If

System.DebugLog("Encrypted email sent!")