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

Demonstrates how to mark emails as read or unread.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

-- 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
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- This example assumes the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @imap int
    -- Use "Chilkat_9_5_0.Imap" for versions of Chilkat < 10.0.0
    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
    DECLARE @success int
    EXEC sp_OAMethod @imap, 'Connect', @success OUT, 'imap.someMailServer.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

    -- Select an IMAP mailbox
    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
        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 @i int

    SELECT @i = 1
    WHILE @i <= @numMsgs
      BEGIN
        -- Download each email by sequence number (not UID)
        DECLARE @email int

        EXEC sp_OAMethod @imap, 'FetchSingle', @email OUT, @i, 0
        EXEC sp_OAGetProperty @imap, 'LastMethodSuccess', @iTmp0 OUT
        IF @iTmp0 = 0
          BEGIN
            EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
            PRINT @sTmp0
            EXEC @hr = sp_OADestroy @imap
            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 <> 1
          BEGIN
            EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
            PRINT @sTmp0
            EXEC @hr = sp_OADestroy @imap
            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 <> 1
          BEGIN
            EXEC sp_OAGetProperty @imap, 'LastErrorText', @sTmp0 OUT
            PRINT @sTmp0
            EXEC @hr = sp_OADestroy @imap
            RETURN
          END

        EXEC @hr = sp_OADestroy @email

        SELECT @i = @i + 1
      END

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

    EXEC @hr = sp_OADestroy @imap


END
GO