![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(SQL Server) Delete Individual Emails from POP3 MailboxDemonstrates how to delete individual emails from a POP3 mailbox. Note: This example requires Chilkat v11.0.0 or greater.
-- 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) DECLARE @success int SELECT @success = 0 -- This example assumes the Chilkat API to have been previously unlocked. -- See Global Unlock Sample for sample code. -- The mailman object is used for receiving (POP3) -- and sending (SMTP) email. DECLARE @mailman int EXEC @hr = sp_OACreate 'Chilkat.MailMan', @mailman OUT IF @hr <> 0 BEGIN PRINT 'Failed to create ActiveX component' RETURN END -- Set the POP3 server's hostname EXEC sp_OASetProperty @mailman, 'MailHost', 'pop.someMailServer.com' -- Set the POP3 login/password. EXEC sp_OASetProperty @mailman, 'PopUsername', 'myLogin' EXEC sp_OASetProperty @mailman, 'PopPassword', 'myPassword' -- Set the ImmediateDelete property = 0 -- When the DeleteEmail method is called, the POP3 session -- will remain open and the emails will be deleted all at once -- when the session closes. EXEC sp_OASetProperty @mailman, 'ImmediateDelete', 0 -- Download email headers. DECLARE @bundle int EXEC @hr = sp_OACreate 'Chilkat.EmailBundle', @bundle OUT DECLARE @keepOnServer int SELECT @keepOnServer = 1 DECLARE @headersOnly int SELECT @headersOnly = 1 DECLARE @numBodyLines int SELECT @numBodyLines = 1 EXEC sp_OAMethod @mailman, 'FetchAll', @success OUT, @keepOnServer, @headersOnly, @numBodyLines, @bundle IF @success = 0 BEGIN EXEC sp_OAGetProperty @mailman, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @mailman EXEC @hr = sp_OADestroy @bundle RETURN END DECLARE @email int EXEC @hr = sp_OACreate 'Chilkat.Email', @email OUT DECLARE @i int SELECT @i = 0 EXEC sp_OAGetProperty @bundle, 'MessageCount', @iTmp0 OUT WHILE @i < @iTmp0 BEGIN EXEC sp_OAMethod @bundle, 'EmailAt', @success OUT, @i, @email EXEC sp_OAGetProperty @email, 'From', @sTmp0 OUT PRINT 'From: ' + @sTmp0 EXEC sp_OAGetProperty @email, 'Subject', @sTmp0 OUT PRINT 'Subject: ' + @sTmp0 -- If you decide the email is to be deleted, call DeleteEmail. -- This marks the email for deletion on the POP3 server. EXEC sp_OAMethod @mailman, 'DeleteEmail', @success OUT, @email IF @success = 0 BEGIN EXEC sp_OAGetProperty @mailman, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @mailman EXEC @hr = sp_OADestroy @bundle EXEC @hr = sp_OADestroy @email RETURN END SELECT @i = @i + 1 END -- Make sure the POP3 session is ended to finalize the deletes. EXEC sp_OAMethod @mailman, 'Pop3EndSession', @success OUT IF @success = 0 BEGIN EXEC sp_OAGetProperty @mailman, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @mailman EXEC @hr = sp_OADestroy @bundle EXEC @hr = sp_OADestroy @email RETURN END PRINT 'Success!' EXEC @hr = sp_OADestroy @mailman EXEC @hr = sp_OADestroy @bundle EXEC @hr = sp_OADestroy @email END GO |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.