Lianja

Send Encrypted Email to Multiple Recipients

Demonstrates how to create and send an S/MIME encrypted email to multiple recipients. The digital certificate of each recipient is required. The encrypting/sending process uses each recipient's digital certificate (which internally contains the public key). Each recipient decrypts the received email using his/her private key. Lianja

llSuccess = .F.

// 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.
loMailman = createobject("CkMailMan")

// Set the SMTP server.
loMailman.SmtpHost = "smtp.mymailserver.com"

// Load each recipient's certificate into a Chilkat certificate object.
// This example loads the certificates from files.  However, the Chilkat
// certificate object provides other means for loading certificates,
// such as from in-memory PEM strings, or in-memory binary DER encoded form, etc.
loCert1 = createobject("CkCert")
llSuccess = loCert1.LoadFromFile("recipient1.cer")
if (llSuccess <> .T.) then
    ? loCert1.LastErrorText
    release loMailman
    release loCert1
    return
endif

loCert2 = createobject("CkCert")
llSuccess = loCert2.LoadFromFile("recipient2.cer")
if (llSuccess <> .T.) then
    ? loCert2.LastErrorText
    release loMailman
    release loCert1
    release loCert2
    return
endif

loCert3 = createobject("CkCert")
llSuccess = loCert3.LoadFromFile("recipient3.cer")
if (llSuccess <> .T.) then
    ? loCert3.LastErrorText
    release loMailman
    release loCert1
    release loCert2
    release loCert3
    return
endif

// Create a new email object
loEmail = createobject("CkEmail")

loEmail.Subject = "This email is encrypted and sent to 3 recipients"
loEmail.Body = "This is an S/MIME encrypted mail sent to 3 recipients"
loEmail.From = "Chilkat Support <support@chilkatsoft.com>"

// Make each of the certificates available for encrypting the email
// by calling AddEncryptCert for each.
llSuccess = loEmail.AddEncryptCert(loCert1)
if (llSuccess = .T.) then
    llSuccess = loEmail.AddEncryptCert(loCert2)
endif

if (llSuccess = .T.) then
    llSuccess = loEmail.AddEncryptCert(loCert3)
endif

if (llSuccess <> .T.) then
    ? loEmail.LastErrorText
    release loMailman
    release loCert1
    release loCert2
    release loCert3
    release loEmail
    return
endif

// Add 3 recipients to the email (2 TO addresses, and 1 CC address)
llSuccess = loEmail.AddTo("Recipient 1","admin@cknotes.com")
llSuccess = loEmail.AddTo("Recipient 2","somebody001122@yahoo.com")
llSuccess = loEmail.AddCC("Recipient 3","somebody123xyz@gmail.com")

// Indicate that the email is to be sent encrypted.
loEmail.SendEncrypted = .T.

// Send the encrypted email...
llSuccess = loMailman.SendEmail(loEmail)
if (llSuccess <> .T.) then
    ? loMailman.LastErrorText
else
    ? "Encrypted Email Sent!"
endif



release loMailman
release loCert1
release loCert2
release loCert3
release loEmail