SQL Server

Create Email Folder (sub-Mailbox)

How to create a new email folder (sub-mailbox). (In GMail, folders are called "labels". This example would create a new "label" in GMail.) SQL Server

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

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

    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

    --  Connect to an IMAP server.
    EXEC sp_OAMethod @imap, 'Connect', @success OUT, 'imap.gmail.com'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END

    --  Login
    EXEC sp_OAMethod @imap, 'Login', @success OUT, 'myLogin', 'myPassword'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END

    --  Create the new email folder (sub-mailbox) on the IMAP server.
    --  If no folder path is provided, the new folder is a sub-mailbox of Inbox.
    EXEC sp_OAMethod @imap, 'CreateMailbox', @success OUT, 'newFolder'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END

    --  (In GMail, folders are called "labels".  
    --  This example would create a new "label" in GMail.)

    --  Now create a sub-folder under "newFolder".
    --  Make sure to use the proper separator char for your IMAP server.
    --  The separator char used here is "/".   It is typically "/" or ".".
    --  The SeparatorChar property contains the separator char
    --  that should be used for the current IMAP session.
    EXEC sp_OAMethod @imap, 'CreateMailbox', @success OUT, 'newFolder/subFolder_A'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END


    PRINT 'Success.'

    EXEC @hr = sp_OADestroy @imap


END
GO