PureBasic

Find Certificate for Email Encryption

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

IncludeFile "CkCert.pb"
IncludeFile "CkEmail.pb"
IncludeFile "CkMailMan.pb"

Procedure ChilkatExample()

    success.i = 0

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

    mailman.i = CkMailMan::ckCreate()
    If mailman.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Set the SMTP server.
    CkMailMan::setCkSmtpHost(mailman, "smtp.example.com")

    ; Create a new email object
    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::setCkSubject(email, "This email is encrypted")
    CkEmail::setCkBody(email, "This is a digitally encrypted mail")
    CkEmail::setCkFrom(email, "Joe <joe@example.com>")
    ; Emails are encrypted using the recipient's certificate.
    recipientEmailAddr.s = "jane@example2.com"
    CkEmail::ckAddTo(email,"Jane",recipientEmailAddr)

    ; Indicate that the email is to be sent encrypted.
    CkEmail::setCkSendEncrypted(email, 1)

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

    cert.i = CkCert::ckCreate()
    If cert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; The recipient's certificate is used to encrypt.
    ; (Because the recipient is the only one in possession of the private key to decrypt.)
    success = CkCert::ckLoadByEmailAddress(cert,recipientEmailAddr)
    If success <> 1
        Debug CkCert::ckLastErrorText(cert)
        CkMailMan::ckDispose(mailman)
        CkEmail::ckDispose(email)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ; Specify the certificate to be used for encryption.
    success = CkEmail::ckSetEncryptCert(email,cert)

    success = CkMailMan::ckSendEmail(mailman,email)
    If success <> 1
        Debug CkMailMan::ckLastErrorText(mailman)
    Else
        Debug "Encrypted Mail Sent!"
    EndIf



    CkMailMan::ckDispose(mailman)
    CkEmail::ckDispose(email)
    CkCert::ckDispose(cert)


    ProcedureReturn
EndProcedure