B4X

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.

B4X

Dim success As Boolean = False

Dim email As ChilkatEmail
email.Initialize
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 = "jane@example2.com"
email.AddTo("", recipientEmailAddr)

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

Dim cert As ChilkatCert
cert.Initialize("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
    Log(cert.LastErrorText)
    Return
End If


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

Dim mailman As ChilkatMailMan
mailman.Initialize("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 ChilkatSecrets
secrets.Initialize("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 ChilkatJsonObject
json.Initialize
json.UpdateString("appName", "MyEmailApp")
json.UpdateString("service", "SMTP")
json.UpdateString("domain", "example.com")
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
    Log(mailman.LastErrorText)
    Return
End If


Log("Encrypted email sent!")