adjuntar el archivo que esta dentro una carpeta
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!
|
Hola,
Es problable que pueda hacerse de una forma más elegante y/o mejor, pero, algo así funciona sin problemas: 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: Donde "ListaArchivos" podría ser una variable de tipo "TStrings" en donde previamente hubieras añadido las rutas de los archivos correspondientes. |
La franja horaria es GMT +2. Ahora son las 12:28:59. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi