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) Read POP3 Mail HeadersReads the header for each email in a POP3 mailbox and display the FROM and SUBJECT header fields.
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; 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 := '****'; mailman.PopPassword := '****'; // Read mail headers and one line of the body. 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); // Display the From email address and the subject. Memo1.Lines.Add('From: ' + email.From); Memo1.Lines.Add('Subject: ' + email.Subject); i := i + 1; end; end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.