Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ Delphi FoxPro Java Perl Python Ruby SQL Server VBScript
|
Read a POP3 MailboxRead a POP3 mailbox and display the FROM and SUBJECT header fields of each email.
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATMAILLib2_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var mailman: TChilkatMailMan2; success: Integer; bundle: CHILKATMAILLib2_TLB.IChilkatEmailBundle2; i: Integer; email: CHILKATMAILLib2_TLB.IChilkatEmail2; begin // The mailman object is used for receiving (POP3) // and sending (SMTP) email. mailman := TChilkatMailMan2.Create(Self); // Any string argument automatically begins the 30-day trial. success := mailman.UnlockComponent('30-day trial'); if (success <> 1) then begin ShowMessage('Component unlock failed'); end; // Set the POP3 server's hostname mailman.MailHost := 'mail.chilkatsoft.com'; // Set the POP3 login/password. mailman.PopUsername := '****'; mailman.PopPassword := '****'; // Copy the all email from the user's POP3 mailbox // into a bundle object. The email remains on the server. bundle := mailman.CopyMail(); if (bundle = nil ) then begin ShowMessage(mailman.LastErrorText); end; for i := 0 to bundle.MessageCount - 1 do begin email := bundle.GetEmail(i); Memo1.Lines.Add(email.From); Memo1.Lines.Add(email.Subject + ); end; end; |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.