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.

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    --  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.

    DECLARE @imap int
    EXEC @hr = sp_OACreate 'Chilkat.Imap', @imap OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OASetProperty @imap, 'Ssl', 1
    EXEC sp_OASetProperty @imap, 'Port', 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.
    DECLARE @pemPassword nvarchar(4000)

    --  Provide the PEM client certificate BEFORE connecting.  The first argument may be a PEM file
    --  path or the PEM text itself.
    EXEC sp_OAMethod @imap, 'SetSslClientCertPem', @success OUT, 'qa_data/client.pem', @pemPassword
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END

    EXEC sp_OAMethod @imap, 'Connect', @success OUT, 'imap.example.com'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END
    EXEC sp_OAMethod @imap, 'Login', @success OUT, 'user@example.com', 'myPassword'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END

    EXEC sp_OAMethod @imap, 'Disconnect', @success OUT
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END

    EXEC @hr = sp_OADestroy @imap


END
GO