Проблема с аттачем with indy [D6, NT4]
Shil © (2002-07-30 18:12:00)
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:00) [1]
ПОмогите ПЛИЗЗЗЗЗ
Наверх 
ЧАТ |
Орешник |
|
