прога ищет в указанном каталоге файлы с определенным расширением, и отправляет их на почту... вот накидал за 5 минут.... глянь
Код:
FindFiles('C:\pochta\', '*.txt', FileList, true);
данный исходник, позволяет отправить файлы найденные не только в указанной папке, но и в подкаталогах той папки, пример:
каталог c:\windows, ищем к примеру все текстовые файлы, *.txt, прога про сканирует весь каталог windows, и найденные текстовые файлы присоединит к письму...!!!!