(Tcl) Send Signed Email using PFX File

Demonstrates how to send a signed email using a digital certificate w/ private key stored in a PFX file.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# The mailman object is used for sending and receiving email.
set mailman [new_CkMailMan]

# Set the SMTP server.
CkMailMan_put_SmtpHost $mailman "smtp.mymailserver.com"

# Create a new email object
set email [new_CkEmail]

CkEmail_put_Subject $email "This email is signed"
CkEmail_put_Body $email "This is a digitally signed mail"
CkEmail_put_From $email "Chilkat Admin <admin@chilkatsoft.com>"
set success [CkEmail_AddTo $email "Chilkat Support" "support@chilkatsoft.com"]

# Indicate that the email should be sent signed.
CkEmail_put_SendSigned $email 1

# Tell the mailman to use a PFX file as a source for locating
# the certificate and private key required for signing.
# The certificate chosen for signing will be the one that
# matches the sender's email address, which also has
# a private key.  All intermediate certs in the chain of 
# authentication, up to and including the root, will
# be included in the signature.
set success [CkMailMan_AddPfxSourceFile $mailman "/pfx_files/chilkatsoft_secret.pfx" "secret"]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkEmail $email
    exit
}

# Signed email can be sent in two different ways.  
# In a multipart/signed email, the signature is attached as a separate MIME part.
# In an opaque email (signedData) the content of the email is encapsulated within the signature
# and the email is sent as "application/pkcs7-mime". 
# Either should be fine, but some receiving systems might require one or the other..
CkMailMan_put_OpaqueSigning $mailman 0

# Send a signed email.
set success [CkMailMan_SendEmail $mailman $email]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
} else {
    # The LastErrorText property provides information
    # even when successful.
    puts [CkMailMan_lastErrorText $mailman]
    puts "Mail Sent!"
}


delete_CkMailMan $mailman
delete_CkEmail $email