Set an IMAP TLS Client Certificate from PEM

See more IMAP Examples

Demonstrates the Chilkat Imap.SetSslClientCertPem method, which supplies a TLS client certificate and private key from PEM. The first argument may be the PEM text itself or a path to a PEM file (Chilkat detects which), and the second is the password used when the private key is encrypted. Call it before connecting.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoImap
    String sPemPassword
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the Imap.SetSslClientCertPem method, which supplies a TLS client certificate
    //  and private key from PEM.  The 1st argument is the PEM text or a PEM file path, and the 2nd
    //  is the password when the private key is encrypted.  It must be called before connecting.

    Get Create (RefClass(cComChilkatImap)) To hoImap
    If (Not(IsComObjectCreated(hoImap))) Begin
        Send CreateComObject of hoImap
    End

    Set ComSsl Of hoImap To True
    Set ComPort Of hoImap To 993

    //  The PEM private-key password is not hard-coded in source.  Insert code here to obtain it from an
    //  interactive prompt, environment variable, or a secrets vault.

    //  Provide the PEM client certificate BEFORE connecting.  The first argument may be a PEM file
    //  path or the PEM text itself.
    Get ComSetSslClientCertPem Of hoImap "qa_data/client.pem" sPemPassword To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComConnect Of hoImap "imap.example.com" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComLogin Of hoImap "user@example.com" "myPassword" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComDisconnect Of hoImap To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure