Descargar archivo adjunto del outlook

[mcalmanovici]

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.