PureBasic

Add a PFX Source to MailMan for Decryption

Demonstrates the Chilkat MailMan.AddPfxSourceFile method, which adds a PFX/PKCS#12 file to the MailMan object's internal list of sources used for locating certificates and private keys — for example, to decrypt S/MIME email downloaded from the server. The second argument is the PFX password. This example configures a POP3 connection and registers a PFX source.

Background: When MailMan downloads an encrypted (S/MIME) message, it needs the recipient's private key to decrypt it. On Windows and macOS the OS certificate stores are searched automatically, but when the key lives in a standalone PFX file — common on Linux or in server deployments — AddPfxSourceFile tells MailMan where to find it. A PFX bundles the certificate and its private key in one password-protected file.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkMailMan.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  Demonstrates the MailMan.AddPfxSourceFile method, which adds a PFX/PKCS#12 file to the
    ;  MailMan object's internal list of sources used for locating certificates and private
    ;  keys (for example, to decrypt downloaded S/MIME email).  The 2nd argument is the PFX
    ;  password.

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

    ;  Configure the POP3 server connection.
    CkMailMan::setCkMailHost(mailman, "pop.example.com")
    CkMailMan::setCkMailPort(mailman, 995)
    CkMailMan::setCkPopSsl(mailman, 1)
    CkMailMan::setCkPopUsername(mailman, "user@example.com")
    CkMailMan::setCkPopPassword(mailman, "myPassword")

    ;  Provide a PFX so that encrypted emails downloaded from the server can be decrypted.

    success = CkMailMan::ckAddPfxSourceFile(mailman,"qa_data/certs/decryption.pfx","pfx_password")
    If success = 0
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        ProcedureReturn
    EndIf

    Debug "Added the PFX certificate/private-key source."

    ;  Note: The path "qa_data/certs/decryption.pfx" is a relative local filesystem path,
    ;  relative to the current working directory of the running application.


    CkMailMan::ckDispose(mailman)


    ProcedureReturn
EndProcedure