(Visual FoxPro) Find Certificate for Email Encryption

Demonstrates finding the recipient's certificate in the Windows certificate store and using it to send encrypted email.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loMailman
LOCAL loEmail
LOCAL lcRecipientEmailAddr
LOCAL loCert

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MailMan')
loMailman = CreateObject('Chilkat.MailMan')

* Set the SMTP server.
loMailman.SmtpHost = "smtp.example.com"

* Create a new email object
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')

loEmail.Subject = "This email is encrypted"
loEmail.Body = "This is a digitally encrypted mail"
loEmail.From = "Joe <joe@example.com>"
* Emails are encrypted using the recipient's certificate.
lcRecipientEmailAddr = "jane@example2.com"
loEmail.AddTo("Jane",lcRecipientEmailAddr)

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

* This example demonstrates finding the email encryption certificate
* on a Windows system where the certificate is stored in the Windows 
* certificate store.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
* The recipient's certificate is used to encrypt.
* (Because the recipient is the only one in possession of the private key to decrypt.)
lnSuccess = loCert.LoadByEmailAddress(lcRecipientEmailAddr)
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loMailman
    RELEASE loEmail
    RELEASE loCert
    CANCEL
ENDIF

* Specify the certificate to be used for encryption.
lnSuccess = loEmail.SetEncryptCert(loCert)

lnSuccess = loMailman.SendEmail(loEmail)
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
ELSE
    ? "Encrypted Mail Sent!"
ENDIF

RELEASE loMailman
RELEASE loEmail
RELEASE loCert