(Tcl) Send Signed and Encrypted EDI Email (EDIFACT)

Demonstrates how to send a signed and encrypted EDI email (EDIFACT email).

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]

#  Create a new email object
# email is a CkEmail

#  Build the basic EDI email where the body is the EDIFACT message:
set ediMsg "UNB+IATB:1+6XPPC ..."
set name "something"
set filename "something"
set charset "iso-8859-1"
CkEmail_SetEdifactBody $email $ediMsg $name $filename $charset

CkEmail_put_Subject $email "This is the subject"
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/myCertAndPrivateKey.pfx" "secret"]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    exit
}

#  Load the .cer file into a certificate object.
#  When sending S/MIME encrypted email, it is the recipient's
#  certificate that is used for encryption.  Only the public key
#  is needed to encrypt.  The recipient is the only
#  one possessing the private key, and therefore is the only
#  one able to decrypt.
# cert is a CkCert

set success [CkCert_LoadFromFile $cert "/certs/recipientCert.cer"]
if {$success != 1} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkMailMan $mailman
    exit
}

#  Indicate that the email is to be sent encrypted.
CkEmail_put_SendEncrypted $email 1

#  Indicate that we want 192-bit 3DES encryption:
CkEmail_put_Pkcs7CryptAlg $email "3des"
CkEmail_put_Pkcs7KeyLength $email 192

#  Specify the certificate to be used for encryption.
set success [CkEmail_SetEncryptCert $email $cert]

#  Tell the mailman to use an opaque signature (as opposed to a detached signature)
CkMailMan_put_OpaqueSigning $mailman 1

#  SMTP server (use your settings and refer to the online
#  reference  documentation for more options)
CkMailMan_put_SmtpHost $mailman "smtp.mymailserver.com"
CkMailMan_put_SmtpUsername $mailman "myLogin"
CkMailMan_put_SmtpPassword $mailman "myPassword"
CkMailMan_put_SmtpPort $mailman 587
CkMailMan_put_StartTLS $mailman 1

#  Send the signed/encrypted EDI email
set success [CkMailMan_SendEmail $mailman $email]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
} else {
    puts "Mail Sent!"
}


delete_CkMailMan $mailman