Enviar correos con adjuntos (Indy 10)

[Neftali [Germán.Estévez]]

Yo en Delphi (Delphi7+Indy10) hago directamente esto (sin el Add); A ver si te sirve:

Código Delphi [-]
var
   Mennsaje: TIdMessage;
...
begin
..

// recorer la lista y añadir los ficheros...
for i := 0 to (AListaAdjuntos.Count - 1) do begin
  // si existe, lo añadimos...
  if FileExists(AListaAdjuntos[i]) then begin
    TIdAttachmentFile.Create(Mensaje.MessageParts, AListaAdjuntos[i]);
  end;
end;