SQL Server

Upload (Append) Email to an IMAP Mailbox and get the UID of the Appended Email

Upload / append an email to an IMAP mailbox and get the UID of the appended email. SQL Server

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 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

    --  Connect to an IMAP server.
    --  Use TLS
    EXEC sp_OASetProperty @imap, 'Ssl', 1
    EXEC sp_OASetProperty @imap, 'Port', 993
    EXEC sp_OAMethod @imap, 'Connect', @success OUT, 'imap.example.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

    --  Check the capabilities of the IMAP server.
    DECLARE @cap nvarchar(4000)
    EXEC sp_OAMethod @imap, 'Capability', @cap OUT

    PRINT 'IMAP capabilities: ' + @cap

    --  If the capabilities string contains the substring "UIDPLUS", then 
    --  the UID of the appended email will be available in the AppendUid property (see below).

    --  For example, the GMail IMAP server has these capabilities (at this current time)
    --  * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN 
    --  X-GM-EXT-1 UIDPLUS COMPRESS=DEFLATE ENABLE MOVE CONDSTORE ESEARCH UTF8=ACCEPT 
    --  APPENDLIMIT=35882577 LIST-EXTENDED LIST-STATUS

    DECLARE @email int
    EXEC @hr = sp_OACreate 'Chilkat.Email', @email OUT

    --  Load the email from a .eml file.
    EXEC sp_OAMethod @email, 'LoadEml', @success OUT, 'myEmail.eml'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        EXEC @hr = sp_OADestroy @email
        RETURN
      END

    EXEC sp_OAMethod @imap, 'AppendMail', @success OUT, 'Inbox', @email
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        EXEC @hr = sp_OADestroy @email
        RETURN
      END

    --  If the IMAP server supports the UIDPLUS extension, then the 
    --  imap.AppendUid will contain the UID of the appended email.
    --  Otherwise AppendUid will be 0.

    EXEC sp_OAGetProperty @imap, 'AppendUid', @iTmp0 OUT
    PRINT 'UID of appended email: ' + @iTmp0

    --  If the IMAP server does NOT have UIDPLUS, then a program can 
    --  first select the mailbox, get the value of the UidNext property,
    --  and then append.  The appended email SHOULD have a UID equal to 
    --  the UidNext that was obtained just prior to appending (assuming no other
    --  program is simultaneously appending an email to the same mailbox).

    --  Note: It is not required to select a mailbox to append.  The select is only
    --  done for the purpose of obtaining the UIDNEXT value.
    EXEC sp_OAMethod @imap, 'SelectMailbox', @success OUT, 'Inbox'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        EXEC @hr = sp_OADestroy @email
        RETURN
      END

    DECLARE @uidNext int
    EXEC sp_OAGetProperty @imap, 'UidNext', @uidNext OUT

    EXEC sp_OAMethod @imap, 'AppendMail', @success OUT, 'Inbox', @email
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        EXEC @hr = sp_OADestroy @email
        RETURN
      END


    PRINT 'The UID of the appended email SHOULD be ' + @uidNext


    PRINT 'Email uploaded to Inbox!'

    --  Disconnect from the IMAP server.
    EXEC sp_OAMethod @imap, 'Disconnect', @success OUT

    EXEC @hr = sp_OADestroy @imap
    EXEC @hr = sp_OADestroy @email


END
GO