Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.27;
Скачать: CL | DM;

Вниз

Проблема с отправкой E-Mail   Найти похожие ветки 

 
Григорий Армутхаров   (2003-01-11 02:50) [0]



tofind:=msgdir+"\"+"*.txt"
findfirst(msgdir+"\"+"*.txt", faAnyFile and sysutils.faHidden, firsts);
nmsmtp1.PostMessage.Attachments.Add (firsts.Name);
repeat
begin
findnext(firsts);
nmsmtp1.PostMessage.Attachments.Add (msgdir+"\"+firsts.Name);
end;
until findnext(firsts) <> 0;

findclose(firsts);

С виду все корректно, но при попытке отослать SendMail начинает ругаться, говорит, что не может открыть найденные файлы.


 
sask ©   (2003-01-11 06:28) [1]

tofind:=msgdir+"\"+"*.txt";
if findfirst(tofind, faAnyFile, firsts) = 0 then
begin
repeat
begin
nmsmtp1.PostMessage.Attachments.Add (msgdir+"\"+firsts.Name);
end;
until findnext(firsts) <> 0;
findclose(firsts);
end;



Страницы: 1 вся ветка

Текущий архив: 2003.02.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
3-87275
kerkonst
2003-02-08 20:59
2003.02.27
Очень простой вопрос по QuickReport


14-87665
AK-74
2003-02-10 22:17
2003.02.27
Подарили кучу компьютеров. Что с ними делать-то теперь?


1-87503
Andrey_S
2003-02-13 17:14
2003.02.27
Кнопки как в FrontPage слева


1-87472
Trip
2003-02-18 23:56
2003.02.27
Read


3-87303
Брат
2003-02-10 12:05
2003.02.27
Запрос из запроса