Visual Basic 6.0

Add a PFX Source (BinData) for S/MIME Decryption

Demonstrates the Chilkat Imap.AddPfxSourceBd method, which adds PFX data held in a BinData as a source of certificates and private keys for S/MIME processing. The first argument is the BinData and the second is the PFX password. Call it once for each additional source.

Note: The certificate path is relative to the application's current working directory. Supply the path to your own certificate file.

Background: When downloading encrypted (S/MIME) email, Chilkat needs the recipient's private key to decrypt it. Adding one or more PFX sources gives Chilkat a pool of keys to search; the matching key is used automatically as messages are fetched. The BinData form is handy when the PFX comes from memory — a database blob or a downloaded buffer — rather than a file on disk. On Windows and macOS the system certificate stores are also searched automatically.

Chilkat Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

'  Demonstrates the Imap.AddPfxSourceBd method, which adds PFX data (from a BinData) as a
'  source of certificates and private keys for S/MIME decryption.  The 1st argument is the
'  BinData containing the PFX, and the 2nd is the PFX password.

Dim imap As New ChilkatImap

imap.Ssl = 1
imap.Port = 993

success = imap.Connect("imap.example.com")
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

success = imap.Login("user@example.com","myPassword")
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

'  Load the PFX data into a BinData.
Dim bdPfx As New ChilkatBinData
success = bdPfx.LoadFile("qa_data/smime.pfx")
If (success = 0) Then
    Debug.Print bdPfx.LastErrorText
    Exit Sub
End If

'  The PFX password is not hard-coded in source.  Insert code here to obtain it from an
'  interactive prompt, environment variable, or a secrets vault.
Dim pfxPassword As String

'  Add the PFX as a source for S/MIME certificates and private keys.  Call once per source.
success = imap.AddPfxSourceBd(bdPfx,pfxPassword)
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

'  Messages downloaded after this are automatically decrypted when a matching key is found.

success = imap.Disconnect()
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If