(Visual FoxPro) POP3 Verify Signed (S/MIME) Email

Demonstrates how to download and verify digitally signed S/MIME email.

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

LOCAL loMailman
LOCAL lnSuccess
LOCAL loSa
LOCAL loEmail
LOCAL lcUidl
LOCAL i
LOCAL loCert

* This example requires 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.MailMan')
loMailman = CreateObject('Chilkat.MailMan')

* Set the POP3 server's hostname
loMailman.MailHost = "pop.someMailServer.com"

* Set the POP3 login/password.
loMailman.PopUsername = "myLogin"
loMailman.PopPassword = "myPassword"

loSa = loMailman.GetUidls()
IF (loMailman.LastMethodSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

i = 0
DO WHILE i < loSa.Count

    lcUidl = loSa.GetString(i)

    loEmail = loMailman.FetchEmail(lcUidl)
    IF (loMailman.LastMethodSuccess = 0) THEN
        ? loMailman.LastErrorText
        RELEASE loSa
        RELEASE loMailman
        CANCEL
    ENDIF

    ? loEmail.From
    ? loEmail.Subject

    * The security layers of signed and/or encrypted emails
    * are automatically "unwrapped" when loaded into
    * a Chilkat email object.
    * An application only needs to check to see if an email
    * was received signed or encrypted, and then examine
    * the success/failure.  For example:
    IF (loEmail.ReceivedSigned = 1) THEN

        ? "This email was signed."

        * Check to see if the signatures were verified.
        IF (loEmail.SignaturesValid = 1) THEN
            ? "Digital signature(s) verified."
            ? "Signer: " + loEmail.SignedBy

            * The certificate used for signing may be obtained
            * by calling email.GetSignedByCert.

            loCert = loEmail.GetSignedByCert()
            IF (loEmail.LastMethodSuccess = 0) THEN
                ? "Failed to get signing certificate object."
            ELSE
                ? "Signing cert: " + loCert.SubjectCN
                RELEASE loCert
            ENDIF

        ELSE
            ? "Digital signature verification failed."
        ENDIF

    ENDIF

    RELEASE loEmail
    i = i + 1
ENDDO

RELEASE loSa

loMailman.Pop3EndSession()

RELEASE loMailman