Select Encryption Algorithm with SMTP Encrypted Email

Download Chilkat Email ActiveX

Demonstrates how to select the encryption algorithm and strength (key size) when sending encrypted email.

LOCAL loMailman
LOCAL lnSuccess
LOCAL loEmail
LOCAL loCsp

*  The mailman object is used for sending and receiving email.
loMailman = CreateObject('Chilkat.MailMan2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loMailman.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Component unlock failed")
    QUIT
ENDIF

*  Set the SMTP server.
loMailman.SmtpHost = "smtp.comcast.net"

*  Create a new email object
loEmail = CreateObject('Chilkat.Email2')

loEmail.Subject = "This email is encrypted"
loEmail.Body = "This is a digitally encrypted mail"
loEmail.From = "Chilkat Support <support@chilkatsoft.com>"
loEmail.AddTo("Chilkat Admin","admin@chilkatsoft.com")

*  In this example, we've already installed the certificate for "admin@chilkatsoft.com"
*  in the current user's personal certificate store.
*  If the email.SendEncrypted property is set, Chilkat will
*  automatically search for and use the first non-expired certificate
*  matching the recipient'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.
loEmail.SendEncrypted = 1

*  Use the CSP object to select an encryption algorithm:
loCsp = CreateObject('Chilkat.Csp')
*  Make sure we're using the enhanced provider, which provides
*  access to stronger algorithms.
loCsp.SetProviderMicrosoftEnhanced()

*  Select 168-bit 3DES (i.e. 192-bit DES if you include the parity bits)
loCsp.SetEncryptAlgorithm("3DES")

*  Tell the email to use this CSP:
loEmail.SetCSP(loCsp)

lnSuccess = loMailman.SendEmail(loEmail)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loMailman.LastErrorText)
ELSE
    *  Examine the LastErrorText anyway, so we can see
    *  that 3DES was used...
    *  You should see these lines in the log:
    *  alg_name: 3DES
    *  alg_bits: 168
    =MESSAGEBOX(loMailman.LastErrorText)
ENDIF