Add a PFX Source to MailMan from BinData

See more POP3 Examples

Demonstrates the Chilkat MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store to the MailMan object's internal list of sources used for locating certificates and private keys. The first argument is a BinData containing the PFX bytes and the second is the PFX password. This example loads a PFX into a BinData, registers it, and fetches a message Chilkat can decrypt.

integer li_rc
integer li_Success
oleobject loo_Mailman
oleobject loo_BdPfx
oleobject loo_Email

li_Success = 0

//  Demonstrates the MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store
//  to the MailMan object's internal list of sources used for locating certificates and
//  private keys.  The 1st argument is a BinData containing the PFX bytes and the 2nd is the
//  PFX password.

loo_Mailman = create oleobject
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")
if li_rc < 0 then
    destroy loo_Mailman
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  Configure the POP3 server connection.
loo_Mailman.MailHost = "pop.example.com"
loo_Mailman.MailPort = 995
loo_Mailman.PopSsl = 1
loo_Mailman.PopUsername = "user@example.com"
loo_Mailman.PopPassword = "myPassword"

//  Load the PFX bytes into a BinData (they could come from a file, database, or secrets store).
loo_BdPfx = create oleobject
li_rc = loo_BdPfx.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_BdPfx.LoadFile("qa_data/certs/decryption.pfx")
if li_Success = 0 then
    Write-Debug loo_BdPfx.LastErrorText
    destroy loo_Mailman
    destroy loo_BdPfx
    return
end if

//  Add the PFX as a source of certificates and private keys.
li_Success = loo_Mailman.AddPfxSourceBd(loo_BdPfx,"pfx_password")
if li_Success = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_BdPfx
    return
end if

//  Fetch a message; if it is encrypted, Chilkat can decrypt it using the PFX source.
loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

li_Success = loo_Mailman.FetchOne(0,0,1,loo_Email)
if li_Success = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_BdPfx
    destroy loo_Email
    return
end if

Write-Debug "Decrypted = " + string(loo_Email.Decrypted)

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

//  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
//  connects and authenticates -- using the property settings above -- whenever a server
//  operation requires it.  Calling the explicit connect/authenticate methods can still be
//  helpful to determine whether a failure occurs while connecting or while authenticating.


destroy loo_Mailman
destroy loo_BdPfx
destroy loo_Email