Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loMailman
LOCAL loCert1
LOCAL loCert2
LOCAL loCert3
LOCAL loEmail

lnSuccess = 0

* 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('Chilkat.MailMan')

* 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('Chilkat.Cert')
lnSuccess = loCert1.LoadFromFile("recipient1.cer")
IF (lnSuccess <> 1) THEN
    ? loCert1.LastErrorText
    RELEASE loMailman
    RELEASE loCert1
    CANCEL
ENDIF

loCert2 = CreateObject('Chilkat.Cert')
lnSuccess = loCert2.LoadFromFile("recipient2.cer")
IF (lnSuccess <> 1) THEN
    ? loCert2.LastErrorText
    RELEASE loMailman
    RELEASE loCert1
    RELEASE loCert2
    CANCEL
ENDIF

loCert3 = CreateObject('Chilkat.Cert')
lnSuccess = loCert3.LoadFromFile("recipient3.cer")
IF (lnSuccess <> 1) THEN
    ? loCert3.LastErrorText
    RELEASE loMailman
    RELEASE loCert1
    RELEASE loCert2
    RELEASE loCert3
    CANCEL
ENDIF

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

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.
lnSuccess = loEmail.AddEncryptCert(loCert1)
IF (lnSuccess = 1) THEN
    lnSuccess = loEmail.AddEncryptCert(loCert2)
ENDIF

IF (lnSuccess = 1) THEN
    lnSuccess = loEmail.AddEncryptCert(loCert3)
ENDIF

IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loMailman
    RELEASE loCert1
    RELEASE loCert2
    RELEASE loCert3
    RELEASE loEmail
    CANCEL
ENDIF

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

* Indicate that the email is to be sent encrypted.
loEmail.SendEncrypted = 1

* Send the encrypted email...
lnSuccess = loMailman.SendEmail(loEmail)
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
ELSE
    ? "Encrypted Email Sent!"
ENDIF

RELEASE loMailman
RELEASE loCert1
RELEASE loCert2
RELEASE loCert3
RELEASE loEmail