Форум: "Сети";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
ВнизПроблема с отправкой 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c