![]() |
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
(Delphi DLL) IMAP Delete Old Email (before a specified date)Demonstrates how to delete email older than a particular date.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Imap, Email, MessageSet; ... procedure TForm1.Button1Click(Sender: TObject); var imap: HCkImap; success: Boolean; messageSet: HCkMessageSet; fetchUids: Boolean; i: Integer; count: Integer; email: HCkEmail; begin // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. imap := CkImap_Create(); // Connect to an IMAP server. // Use TLS CkImap_putSsl(imap,True); CkImap_putPort(imap,993); // Use your IMAP server domain. This example success := CkImap_Connect(imap,'my-imap-server-domain.com'); if (success <> True) then begin Memo1.Lines.Add(CkImap__lastErrorText(imap)); Exit; end; // Login success := CkImap_Login(imap,'myLogin','myPassword'); if (success <> True) then begin Memo1.Lines.Add(CkImap__lastErrorText(imap)); Exit; end; // Select an IMAP mailbox success := CkImap_SelectMailbox(imap,'Inbox'); if (success <> True) then begin Memo1.Lines.Add(CkImap__lastErrorText(imap)); Exit; end; // Get message ID's for emails older than 1/1/2018 fetchUids := True; messageSet := CkImap_Search(imap,'SENTBEFORE 01-Jan-2018',fetchUids); if (CkImap_getLastMethodSuccess(imap) = False) then begin Memo1.Lines.Add(CkImap__lastErrorText(imap)); Exit; end; // If desired, we can examine the Subject of each email to be deleted.. i := 0; count := CkMessageSet_getCount(messageSet); while i < count do begin email := CkImap_FetchSingleHeader(imap,CkMessageSet_GetId(messageSet,i),True); if (CkImap_getLastMethodSuccess(imap) = True) then begin Memo1.Lines.Add(CkEmail__subject(email)); CkEmail_Dispose(email); end; i := i + 1; end; // Set the Deleted flag for each message: success := CkImap_SetFlags(imap,messageSet,'Deleted',1); if (success <> True) then begin Memo1.Lines.Add(CkImap__lastErrorText(imap)); CkMessageSet_Dispose(messageSet); Exit; end; // Expunge and close the mailbox. success := CkImap_ExpungeAndClose(imap); if (success <> True) then begin Memo1.Lines.Add(CkImap__lastErrorText(imap)); CkMessageSet_Dispose(messageSet); Exit; end; // Disconnect from the IMAP server. success := CkImap_Disconnect(imap); CkMessageSet_Dispose(messageSet); CkImap_Dispose(imap); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.