How To Use POP3

var
  pop:TPOP3Send;
begin
  pop:=TPOP3Send.create;
  try
    pop.AutoTLS := true;
    pop.Username:='yourusername';
    pop.Password:='yourpassword';
    pop.TargetHost:='your.pop3.host.com';
    pop.AuthType:=POP3AuthAll;
    pop.login;
    pop.list(0);
    memo2.lines.Assign(pop.FullResult);
    pop.Retr(1);
//    pop.top(1,0);
    memo1.lines.Assign(pop.FullResult);
    pop.logout;
  finally
    pop.free;
  end;
end;
public/howto/pop3sample.txt · Last modified: 2007/11/30 14:30 (external edit)
Driven by DokuWiki Recent changes RSS feed