Заносит список файлов из каталогоа в мемо.
var SR: TSearchRec;
if FindFirst('C:\FFF\'+'*.*',faArchive,SR)=0 then Memo2.Lines.Add(SR.Name);
while FindNext(SR)=0 do Memo2.Lines.Add(SR.Name);
отправляет все файлы с каталога по почте
with NMSMTP1 do begin
ClearParameters;
Host :=MyHost;
Port:=MyPort;
UserID :=MyUserID;
Connect;
PostMessage.FromAddress := AdrFrom;
PostMessage.ToAddress.Text:=AdrTo;
PostMessage.ToCarbonCopy.Text:=CopyTo;
PostMessage.Body.LoadFromFile(IniPath+'\msg.txt');
if MySubject<>'' then PostMessage.Subject := MySubject;
if MyRepTo<>'' then PostMessage.ReplyTo:=MyRepTo;
if FindFirst(SavePath+'*.*',faArchive,SR)=0 then
PostMessage.Attachments.Add(SavePath+SR.Name);
while FindNext(SR)=0 do PostMessage.Attachments.Add(SavePath+SR.Name);
Memo1.Lines:=PostMessage.Attachments;
SendMail;
end;
код сырой (вырваный из конткеста) но разобраться можно

Cooper

Может он и глючный, но в данном приложении (отправка почты) у меня все пошло без проблем. Программа работает уже года полтора и нареканий от пользователей нет.