jachguate, te comento que el mensaje justamente es ''. O sea como que es blanco y no me dice nada.
Te copio el código tal cual lo estoy ejecutando:
Código Delphi
[-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var
Msg: TIdMessage;
Att: TIdAttachment;
I: Integer;
begin
IdPOP31.Host := 'server011.host';
IdPOP31.Port := 143;
IdPOP31.Username := 'mail@servidor.com.ar';
IdPOP31.Password := 'mipass';
IdPOP31.Connect;
if IdPOP31.CheckMessages >= 1 then
begin
Msg := TIdMessage.Create(nil);
try
if IdPOP31.Retrieve(1, Msg) then
for I := 0 to Msg.MessageParts.Count - 1 do
if Msg.MessageParts.Items[i] is TIdAttachment then
begin
Att := TIdAttachment(Msg.MessageParts.Items[i]);
Att.SaveToFile(Att.FileName);
end;
finally
Msg.Free;
end;
end;
end;
Muchas gracias por tu tiempo.