adjuntar el archivo que esta dentro una carpeta

[kinteam1]

Hola, estoy creando un programa que me envie automaticamente los archivos que esten dentro de 1 carpeta. pero nose komo usar los componentes indy para ke me funcione. porke solo se adjuntar 1 archivo en concreto con TIdAttachment.Create(idmessage1.MessageParts,'C:\envios\adjunto.txt') y lo ke kiero es enviar el archivo ke este dentro de la carpeta envios. alguien sabe como se hace???? muchismas gracias!

[dec]

Hola,

Es problable que pueda hacerse de una forma más elegante y/o mejor, pero, algo así funciona sin problemas:

Código Delphi [-]
    TIdAttachment.Create(mail.MessageParts, 'C:\adjunto1.txt');
    TIdAttachment.Create(mail.MessageParts, 'C:\adjunto2.txt');

Dale un vistazo a la ayuda de Delphi y a estos resultados de una búsqueda en los Foros para guiarte en el uso de las funciones "FindFirst", "FindNext", etc., de tal modo que obtengas los archivos que se encuentren en una determinada carpeta.

Podrías hacer un "bucle" por contador ("for") en el cual, una vez sepas qué archivos hay que adjuntar, podrías utilizar la instrucción de más arriba, esto es, quedaría algo así, más o menos:

Código Delphi [-]
 for i := 0 to ListaArchivos.Count-1 do
 begin
    TIdAttachment.Create(mail.MessageParts, ListaArchivos[i]);
 end;

Donde "ListaArchivos" podría ser una variable de tipo "TStrings" en donde previamente hubieras añadido las rutas de los archivos correspondientes.