Send S/MIME Signed Email

Send digitally signed email using the digital certificate of the recipient. To successfully sign, the sender's certificate must be pre-installed with private key. Typically, this is done via a .pfx file, or through Internet Explorer. If your code is going to run within ASP, ASP.NET, or a Windows Service, you will need to follow the instructions here (http://blog.chilkatsoft.com/?p=149) to import your certificate w/ private key such that it is accessible by the calling process.

Download Chilkat Perl Module

use chilkat;

# The mailman object is used for sending and receiving email.
$mailman = new chilkat::CkMailMan();

# Any string argument automatically begins the 30-day trial.
$success = $mailman->UnlockComponent("30-day trial");
if ($success != 1) {
    print "Component unlock failed" . "\n";
    exit;
}

# Set the SMTP server.
$mailman->put_SmtpHost("smtp.comcast.net");

# Create a new email object
$email = new chilkat::CkEmail();

$email->put_Subject("This email is signed");
$email->put_Body("This is a digitally signed mail");
$email->put_From('Chilkat Support <admin@chilkatsoft.com>');
$email->AddTo("TagTooga",'admin@tagtooga.com');

# In this example, we've already installed the certificate for "admin@chilkatsoft.com"
# (with private key) in the current user's personal certificate store.
# If the email.SendSigned property is set, Chilkat will
# automatically search for and use the first non-expired certificate
# matching the sender's email address.  Chilkat searches
# the Current User's Personal certificate store, as well
# as the Local Machine's Personal certificate store.
# Run certmgr.msc to view the certs in the Current User's
# certificate store.
$email->put_SendSigned(1);

$success = $mailman->SendEmail($email);
if ($success != 1) {
    print $mailman->lastErrorText() . "\n";
}
else {
    print "Mail Sent!" . "\n";
}