Send S/MIME Signed and Encrypted Email

Download Chilkat Email ActiveX

Sending a signed and encrypted email is as easy as setting both the SendEncrypted and SendSigned properties. The email is signed using the private key of the sender's certificate, and encrypted using the public key of the recipient's certificate.

LOCAL loMailman
LOCAL lnSuccess
LOCAL loEmail


* 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 signed and encrypted"
loEmail.Body = "This is a digitally signed and encrypted mail"
loEmail.From = "Chilkat Support <admin@chilkatsoft.com>"
loEmail.AddTo("TagTooga","admin@tagtooga.com")

* To send signed and encrypted email, set both
* SendSigned and SendEncrypted:
loEmail.SendSigned = 1
loEmail.SendEncrypted = 1

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