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

Вниз

Проблема с аттачем with indy   Найти похожие ветки 

 
Shil ©   (2002-07-30 18:12) [0]

var
MsgIn,MsgOut: TIdMessage;


begin
pop.Connect;
AmoMes := pop.CheckMessages;//получение кол-ва писем в ящике
if AmoMes = 0 then
begin
end
else
While AmoMes >0 do
begin
If Not pop.Connected then pop.Connect;
Bodyrec:=false;
MsgIn:= TIdMessage.Create(self);
If pop.Retrieve(1,MsgIn) then
Begin
pop.Delete(1);
pop.Disconnect;
If MsgIn.MessageParts[I].ClassName = "TIdAttachment" then
TIdAttachment(MsgIn.MessageParts.Items[i]).SaveToFile (AttachDick+TIdAttachment(MsgIn.MessageParts.Items[i]).FileName);
end;
MsgIN.Recipients.EMailAddresses:="shil@ctinet.ru"
IdSMTP1.Send(MsgIN);
end;
end.

IdSMTP1.Send(MsgIN) Именно в этом месте прога и ломаеться:( Пишит что не возможно открыть файл имя файла такое С:\Temp\id37+"имя файла",


 
Shil ©   (2002-07-31 09:53) [1]

ПОмогите ПЛИЗЗЗЗЗ



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

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

Наверх




Память: 0.46 MB
Время: 0.015 c
14-35406
Malder
2002-07-13 13:04
2002.08.12
CIAcomander


1-35273
Игорь С.
2002-07-31 15:08
2002.08.12
Чтение файла в буфер, для последующей работы...


14-35407
KiKo
2002-07-16 11:47
2002.08.12
Время


1-35371
Dinara
2002-07-30 17:42
2002.08.12
По какому принципу Delphi самостоятельно подключает модули?


1-35327
GTA 3
2002-07-29 21:03
2002.08.12
Сохранение строки в файл, НО в опр. строку по счёту