Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi ActiveX) Delete Individual Emails from POP3 MailboxDemonstrates how to delete individual emails from a POP3 mailbox.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var mailman: TChilkatMailMan; bundle: IChilkatEmailBundle; i: Integer; email: IChilkatEmail; success: Integer; begin // 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. mailman := TChilkatMailMan.Create(Self); // Set the POP3 server's hostname mailman.MailHost := 'pop.someMailServer.com'; // Set the POP3 login/password. mailman.PopUsername := 'myLogin'; 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. mailman.ImmediateDelete := 0; // Download email headers. bundle := mailman.GetAllHeaders(1); if (mailman.LastMethodSuccess = 0) then begin Memo1.Lines.Add(mailman.LastErrorText); Exit; end; i := 0; while i < bundle.MessageCount do begin email := bundle.GetEmail(i); Memo1.Lines.Add('From: ' + email.From); Memo1.Lines.Add('Subject: ' + email.Subject); // If you decide the email is to be deleted, call DeleteEmail. // This marks the email for deletion on the POP3 server. success := mailman.DeleteEmail(email); if (success <> 1) then begin Memo1.Lines.Add(mailman.LastErrorText); Exit; end; i := i + 1; end; // Make sure the POP3 session is ended to finalize the deletes. success := mailman.Pop3EndSession(); if (success <> 1) then begin Memo1.Lines.Add(mailman.LastErrorText); end; Memo1.Lines.Add('Success!'); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.