小编Mig*_*ina的帖子

我正在尝试使用 Delphi 构建一个应用程序，您必须阅读 Gmail 收件箱，并且必须处理用于特殊目的的电子邮件。

我使用 Indy 组件 POP3 构建了这个应用程序，部分代码如下。

procedure TfrmMain.LeerCorreos;
var
  mensaje: TIdMessage;
  i: Integer;
begin
  try
    with POP3 do
    begin
      Name := 'POP3';
      AutoLogin := False;
      Host := 'pop.gmail.com';
      Username := '*******@gmail.com';
      Password := '*****';
      Port := 995;
      IOHandler := IdSSLIOHandlerSocketOpenSSL;
      UseTLS := utUseImplicitTLS;
    end;
    with IdSSLIOHandlerSocketOpenSSL do
    begin
      Destination := 'pop.gmail.com:995';
      Host := 'pop.gmail.com';
      Port := 995;
      DefaultPort := 0;
    end;
    POP3.Connect;
    try
      Mensajes.Clear;
      mensaje := TIdMessage.Create(nil);
      try
        for i := 1 to POP3.CheckMessages do
        begin …