Hola A tod@s, Tengo un problemilla con mi programa, este modulo envia e-mail con el IdMessage y el IdSmtp de las indy los envio sin ningún problema pero cuando le paso la ruta de varios archivos a traves de un Memo no me envia ningun adjunto.El codigo que tengo es este:
Código Delphi
[-]
if ( trim( txtAdjunto.Text ) <> '') then begin
if(MemoAdjunto.Visible=true) then
begin
TIdAttachment.Create(Mensaje.MessageParts,MemoAdjunto.Lines.text );
Memo.lines.Add( 'Archivos Adjuntos :');
Memo.lines.AddStrings( MemoAdjunto.Lines );
end
else
begin
TIdAttachment.Create(Mensaje.MessageParts,txtAdjunto.Text );
Memo.lines.add( 'Archivo Adjunto : ' + trim( txtAdjunto.text ) );
end;
end;
A ver si alguien me puede echar una mano por que el jefe me esta metiendo presión con este módulo, y con el del memo del access que he puesto en un hilo del foro SQL.Gracias por vuestra generosidad y colaboración.
