(Perl) 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.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$email = chilkat::CkEmail->new();
$email->put_Subject("This email is encrypted");
$email->put_Body("This is a S/MIME encrypted mail");
$email->put_From('Joe <joe@example.com>');

# Emails are encrypted using the recipient's certificate.
$recipientEmailAddr = 'jane@example2.com';
$email->AddTo("",$recipientEmailAddr);

# Indicate that the email is to be sent encrypted.
$email->put_SendEncrypted(1);

$cert = chilkat::CkCert->new();

# -----------------------------------------------
# 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 != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Specify the certificate to be used for encryption.
$success = $email->SetEncryptCert($cert);
$email->put_SendEncrypted(1);

$mailman = chilkat::CkMailMan->new();
$mailman->put_SmtpHost("smtp.example.com");
$mailman->put_SmtpUsername('joe@example.com');
$mailman->put_SmtpPort(587);
$mailman->put_StartTLS(1);

# 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
$secrets = chilkat::CkSecrets->new();

# On Windows, this is the Windows Credentials Manager
# On MacOS/iOS, it is the Apple Keychain
$secrets->put_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.
$json = chilkat::CkJsonObject->new();
$json->UpdateString("appName","MyEmailApp");
$json->UpdateString("service","SMTP");
$json->UpdateString("domain","example.com");
$json->UpdateString("username",'joe@example.com');

$mailman->put_SmtpPassword($secrets->getSecretStr($json));

# Send the encrypted email.
# The email is encrypted and sent within the SendEmail function.
$success = $mailman->SendEmail($email);
if ($success != 1) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

print "Encrypted email sent!" . "\r\n";