SQL Server Requires Chilkat v11.0.0+

Mark IMAP Email as Read/Unread (Seen/Unseen)

Demonstrates how to mark emails as read or unread. 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

    --  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 = 0
      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 = 0
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END

    --  Select an IMAP mailbox
    EXEC sp_OAMethod @imap, 'SelectMailbox', @success OUT, 'Inbox'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END

    --  Set PeekMode so that downloaded messages are not
    --  automatically marked as seen.
    EXEC sp_OASetProperty @imap, 'PeekMode', 1

    --  The NumMessages property contains the number of messages 
    --  in the currently selected mailbox.
    DECLARE @numMsgs int
    EXEC sp_OAGetProperty @imap, 'NumMessages', @numMsgs OUT
    IF @numMsgs = 0
      BEGIN
        EXEC @hr = sp_OADestroy @imap
        RETURN
      END

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

    DECLARE @i int

    SELECT @i = 1
    WHILE @i <= @numMsgs
      BEGIN
        --  Download each email by sequence number (not UID)
        EXEC sp_OAMethod @imap, 'FetchEmail', @success OUT, 0, @i, 0, @email
        IF @success = 0
          BEGIN
            EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
            PRINT @sTmp0
            EXEC @hr = sp_OADestroy @imap
            EXEC @hr = sp_OADestroy @email
            RETURN
          END

        --  If desired, mark the email as SEEN.  There are two
        --  ways to do it:

        --  1) Set the flag directly by using the sequence number
        --  Indicate that we are passing a sequence number and
        --  not a UID:
        DECLARE @bIsUid int
        SELECT @bIsUid = 0
        --  Set the SEEN flag = 1 to mark the email as SEEN,
        --  or set it to 0 to mark it as not-seen.
        EXEC sp_OAMethod @imap, 'SetFlag', @success OUT, @i, @bIsUid, 'SEEN', 1
        IF @success = 0
          BEGIN
            EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
            PRINT @sTmp0
            EXEC @hr = sp_OADestroy @imap
            EXEC @hr = sp_OADestroy @email
            RETURN
          END

        --  2) Alternatively, we can use the email object.
        --  When an email is downloaded from the IMAP server
        --  Chilkat will add a "ckx-imap-uid" header to the email.
        --  This makes it possible to know the UID associated with
        --  the email.  (This is not the sequence number, which may change
        --  from session to session, but the UID which does not change.
        --  The SetMailFlag method is identical to SetFlag, except
        --  it gets the UID from the ckx-imap-uid header.
        --  For example:
        EXEC sp_OAMethod @imap, 'SetMailFlag', @success OUT, @email, 'SEEN', 1
        IF @success = 0
          BEGIN
            EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
            PRINT @sTmp0
            EXEC @hr = sp_OADestroy @imap
            EXEC @hr = sp_OADestroy @email
            RETURN
          END

        SELECT @i = @i + 1
      END

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

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


END
GO