(SQL Server) POP3 CopyMail Example

Demonstrates downloading email from a POP3 server via CopyMail (using pop3.live.com). Make sure to enable POP3 access for your HotMail account (or any other type of account if POP3 access is not enabled by default).

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 requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @mailman int
    -- Use "Chilkat_9_5_0.MailMan" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.MailMan', @mailman OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Connection settings for pop3.live.com (or pop-mail.outlook.com, both should work)
    EXEC sp_OASetProperty @mailman, 'MailHost', 'pop3.live.com'

    EXEC sp_OASetProperty @mailman, 'PopUsername', 'my_account@live.com'
    EXEC sp_OASetProperty @mailman, 'PopPassword', 'my_live.com_password'
    EXEC sp_OASetProperty @mailman, 'MailPort', 995
    EXEC sp_OASetProperty @mailman, 'PopSsl', 1

    -- WARNING: CopyMail is only a reasonable choice if it is already know that not
    -- to many emails are present on the server.  CopyMail is a poor choice if a huge number
    -- of emails exist.  It is better to download individually or in batches.
    DECLARE @bundle int
    EXEC sp_OAMethod @mailman, 'CopyMail', @bundle OUT
    EXEC sp_OAGetProperty @mailman, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @mailman, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @mailman
        RETURN
      END

    -- Iterate over the bundle and examine each email..
    DECLARE @numEmails int
    EXEC sp_OAGetProperty @bundle, 'MessageCount', @numEmails OUT
    DECLARE @i int
    SELECT @i = 0
    WHILE @i < @numEmails
      BEGIN
        DECLARE @email int
        EXEC sp_OAMethod @bundle, 'GetEmail', @email OUT, @i

        EXEC sp_OAGetProperty @email, 'From', @sTmp0 OUT
        PRINT 'From: ' + @sTmp0

        EXEC sp_OAGetProperty @email, 'Subject', @sTmp0 OUT
        PRINT 'Subject: ' + @sTmp0

        PRINT '--'
        EXEC @hr = sp_OADestroy @email

        SELECT @i = @i + 1
      END
    EXEC @hr = sp_OADestroy @bundle

    -- Examine the POP3 session log:
    EXEC sp_OAGetProperty @mailman, 'Pop3SessionLog', @sTmp0 OUT
    PRINT @sTmp0

    -- End the POP3 session and close the connection to the POP3 server.
    DECLARE @success int
    EXEC sp_OAMethod @mailman, 'Pop3EndSession', @success OUT


    PRINT '-- Finished.'

    -- The output of this program:

    -- 	**** Connected to pop3.live.com:995
    -- 	< +OK DUB006-POP62 POP3 server ready
    -- 	> USER chilkat@live.com
    -- 	< +OK password required
    -- 	> PASS ****
    -- 	< +OK User successfully authenticated. [AuthResult=0 Proxy=CY1PR17MB0630.namprd17.prod.outlook.com:1995:SSL]
    -- 	> STAT
    -- 	< +OK 23 914026
    -- 	> LIST
    -- 	< +OK 23 914026
    -- 	1 50828
    -- 	2 49862
    -- 	3 142837
    -- 	4 61466
    -- 	5 40805
    -- 	6 39992
    -- 	7 61358
    -- 	8 18431
    -- 	9 122577
    -- 	10 20322
    -- 	11 24274
    -- 	12 24367
    -- 	13 22860
    -- 	14 10136
    -- 	15 35379
    -- 	16 30916
    -- 	17 19800
    -- 	18 14941
    -- 	19 16883
    -- 	20 15151
    -- 	21 20198
    -- 	22 28108
    -- 	23 42535
    -- 	.
    -- 	> UIDL
    -- 	< +OK
    -- 	< +OK
    -- 	1 2291
    -- 	2 2591
    -- 	3 3062
    -- 	4 3063
    -- 	5 3064
    -- 	6 3065
    -- 	7 3066
    -- 	8 3067
    -- 	9 3068
    -- 	10 3069
    -- 	11 3070
    -- 	12 3071
    -- 	13 3072
    -- 	14 3073
    -- 	15 3074
    -- 	16 3075
    -- 	17 3076
    -- 	18 3077
    -- 	19 3078
    -- 	20 3079
    -- 	21 3080
    -- 	22 3081
    -- 	23 3405
    -- 	.
    -- 	> RETR 1
    -- 	< +OK
    -- 	> RETR 2
    -- 	< +OK
    -- 	> RETR 3
    -- 	< +OK
    -- 	> RETR 4
    -- 	< +OK
    -- 	> RETR 5
    -- 	< +OK
    -- 	> RETR 6
    -- 	< +OK
    -- 	> RETR 7
    -- 	< +OK
    -- 	> RETR 8
    -- 	< +OK
    -- 	> RETR 9
    -- 	< +OK
    -- 	> RETR 10
    -- 	< +OK
    -- 	> RETR 11
    -- 	< +OK
    -- 	> RETR 12
    -- 	< +OK
    -- 	> RETR 13
    -- 	< +OK
    -- 	> RETR 14
    -- 	< +OK
    -- 	> RETR 15
    -- 	< +OK
    -- 	> RETR 16
    -- 	< +OK
    -- 	> RETR 17
    -- 	< +OK
    -- 	> RETR 18
    -- 	< +OK
    -- 	> RETR 19
    -- 	< +OK
    -- 	> RETR 20
    -- 	< +OK
    -- 	> RETR 21
    -- 	< +OK
    -- 	> RETR 22
    -- 	< +OK
    -- 	> RETR 23
    -- 	< +OK
    -- 
    -- 	-- Finished.
    -- 

    EXEC @hr = sp_OADestroy @mailman


END
GO