unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdMessageClient, IdPOP3;
type
TForm1 = class(TForm)
IdPOP31: TIdPOP3;
IdMessage1: TIdMessage;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
totalI : integer;
sizetotalI : integer;
I : integer;
J : integer;
K : integer;
bodyS : TStringList;
s : string;
Msg: TIdMessage;
begin
bodyS := TStringList.Create;
IdPOP31.Host := 'pop.gmail.com';
IdPOP31.Port := 995;
IdPOP31.Username := 'cuentax';
IdPOP31.Password := '*****'; IdPOP31.Connect;
totalI := IdPOP31.CheckMessages;
sizetotalI := IdPOP31.RetrieveMailBoxSize div 1024;
ShowMessage( 'total Correos =' + ' ' + IntToStr( totalI ) );
ShowMessage( 'Tamaño Total =' + ' ' + IntToStr( sizetotalI ) + ' ' + 'Kilobytes' );
memo1.Lines.Clear;
memo1.Lines.Add(IntToStr(totalI));
for I := 1 to totalI do
begin
ShowMessage( 'I =' + ' ' + IntToStr( I ) );
Msg := TIdMessage.Create( Self );
if IdPOP31.Retrieve( I, Msg ) then
begin
Msg.NoDecode := false;
BodyS.Clear;
ShowMessage( Msg.ContentType );
for J := 0 to Pred( Msg.MessageParts.Count) do
begin
if ( Msg.MessageParts.Items[J] is TIdAttachment ) then
else
if Msg.MessageParts.Items[J] is TIdText then
begin
Memo1.Lines.AddStrings(TIdText( Msg.MessageParts.Items[J]).Body);
BodyS.AddStrings( TIdText( Msg.MessageParts.Items[ J ]).Body );
end;
end;
ShowMessage( BodyS.Text );
end
else
begin
ShowMessage( 'Internet: E-mail: Header: No se pudo cargar' );
end;
end;
IdPOP31.Disconnect;
end;
end.