FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema al enviar Email con adjuntos usando el componente Idsmtp de las indy
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:
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. |
#2
|
|||
|
|||
Veamos si puedo servirte de ayuda, me atrevería a afirmar que debes crear un objeto TIdAttachment para cada adjunto del mensaje, es decir, tu código corregido sería:
Código:
// Adjuntos. Se pueden indicar varios ( TStringList ) ... if ( trim( txtAdjunto.Text ) <> '') then begin if(MemoAdjunto.Visible=true) then begin for i:=0 to MemoAdjunto.Lines.Count-1 do TIdAttachment.Create(Mensaje.MessageParts,MemoAdjunto.Lines[i]); 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; Un saludo. TDworD Última edición por TDworD fecha: 19-11-2004 a las 17:22:09. |
#3
|
|||
|
|||
Muchisimas gracias TdWord, ya he solucionado el problema,la verdad es que no habiacaido en hacer un bucle, no se que me pasa a veces pero tengo la ideas muy espesas.Lo dicho muchas gracias.
|
|
|
|