(Visual FoxPro) Using Client Certificate w/ IMAP SSL

Demonstrates how to use a client-side certificate with an IMAP SSL connection. The SetSslClientCert method is called to specify a certificate to be used for the SSL connection.

Note: This example requires Chilkat v10.1.2 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loImap
LOCAL loCertStore
LOCAL lnSuccess
LOCAL loJsonCN
LOCAL loCert
LOCAL loCert2
LOCAL loMessageSet
LOCAL lnFetchUids
LOCAL loBundle
LOCAL i
LOCAL lnNumEmails
LOCAL loEmail

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Imap')
loImap = CreateObject('Chilkat.Imap')

* To use a secure SSL connection, set SSL and the port:
loImap.Ssl = 1
* The typical port for IMAP SSL is 993
loImap.Port = 993

* Load a certificate from a PFX file and use it.
* Note: Other methods are available to load pre-installed
* certificates from registry-based certificate stores.

* Create an instance of a certificate store object, load a PFX file,
* locate the certificate we need, and use it for signing.
* (a PFX file may contain more than one certificate.)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
loCertStore = CreateObject('Chilkat.CertStore')
* The 1st argument is the filename, the 2nd arg is the 
* PFX file's password:
lnSuccess = loCertStore.LoadPfxFile("myCertWithPrivateKey.pfx","secret")
IF (lnSuccess <> 1) THEN
    ? loCertStore.LastErrorText
    RELEASE loImap
    RELEASE loCertStore
    CANCEL
ENDIF

* Find the certificate by the subject common name:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonCN = CreateObject('Chilkat.JsonObject')
loJsonCN.UpdateString("CN","cert common name")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCertStore.FindCert(loJsonCN,loCert)
IF (lnSuccess = 0) THEN
    ? loCertStore.LastErrorText
    RELEASE loImap
    RELEASE loCertStore
    RELEASE loJsonCN
    RELEASE loCert
    CANCEL
ENDIF

* If a PFX file is known to contain a single certificate,
* you may load it directly into a Chilkat certificate object.
* This snippet of source code shows how:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert2 = CreateObject('Chilkat.Cert')
* The 1st argument is the filename, the 2nd arg is the 
* PFX file's password:
lnSuccess = loCert2.LoadPfxFile("myClientCert.pfx","secret")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loImap
    RELEASE loCertStore
    RELEASE loJsonCN
    RELEASE loCert
    RELEASE loCert2
    CANCEL
ENDIF

* Use the cert:
lnSuccess = loImap.SetSslClientCert(loCert)

* Connect to an IMAP server.
lnSuccess = loImap.Connect("imap.someMailServer.com")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loCertStore
    RELEASE loJsonCN
    RELEASE loCert
    RELEASE loCert2
    CANCEL
ENDIF

* Login
lnSuccess = loImap.Login("myLogin","myPassword")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loCertStore
    RELEASE loJsonCN
    RELEASE loCert
    RELEASE loCert2
    CANCEL
ENDIF

* Select an IMAP mailbox
lnSuccess = loImap.SelectMailbox("Inbox")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loCertStore
    RELEASE loJsonCN
    RELEASE loCert
    RELEASE loCert2
    CANCEL
ENDIF

* We can choose to fetch UIDs or sequence numbers.
lnFetchUids = 1
* Get the message IDs of all the emails in the mailbox
loMessageSet = loImap.Search("ALL",lnFetchUids)
IF (loImap.LastMethodSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loCertStore
    RELEASE loJsonCN
    RELEASE loCert
    RELEASE loCert2
    CANCEL
ENDIF

* Fetch the emails into a bundle object:

loBundle = loImap.FetchBundle(loMessageSet)
IF (loImap.LastMethodSuccess = 0) THEN
    RELEASE loMessageSet
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loCertStore
    RELEASE loJsonCN
    RELEASE loCert
    RELEASE loCert2
    CANCEL
ENDIF

* Loop over the bundle and display the FROM and SUBJECT of each.
i = 0
lnNumEmails = loBundle.MessageCount
DO WHILE i < lnNumEmails
    loEmail = loBundle.GetEmail(i)
    ? loEmail.From
    ? loEmail.Subject
    ? "--"
    RELEASE loEmail
    i = i + 1
ENDDO

* Disconnect from the IMAP server.
lnSuccess = loImap.Disconnect()

RELEASE loMessageSet
RELEASE loBundle

RELEASE loImap
RELEASE loCertStore
RELEASE loJsonCN
RELEASE loCert
RELEASE loCert2