Вложения Email

← →
Anton (2003-01-21 13:53) [0]

if IdPOP3.Connected then
begin
IdPOP3.Disconnect;
end;
with IdPOP3 do
try
Password:="";
Username:="";
Host:="";
Port:=110;
try
Connect;
except
end;
if Connected then
begin
FMsgCount:=CheckMessages;
if FMsgCount > 0 then begin
for intIndex:=1 to FMsgCount do
begin
Msg.Clear;
idPOP3.Retrieve(intIndex, Msg);
for i := 0 to Pred(Msg.MessageParts.Count) do
begin
if (Msg.MessageParts.Items[i] is TIdAttachment) then
begin
здесь ошибка -> a:=TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename;
end;
end;
end;
end;
end;
finally
end;

← →
Anton (2003-01-21 13:55) [1]

я понял можете не отвечать

← →
Anatoly Podgoretsky © (2003-01-21 14:03) [2]

А как насчет того, что бы делать наоборот, сначала пытаться понять, разобраться и только потом просить помощи. Тебе же потребовалось на это всего две минуты.

← →
Anton (2003-01-21 14:07) [3]

Я перед тем как выложить на форум сидел над этим минут 20

for i := 0 to Pred(Msg.MessageParts.Count-1)
Ошибка на последнем проходе.
Около 15 секунд.

← →
Anton (2003-01-21 14:15) [5]

Pred(Msg.MessageParts.Count) то же самое что и
(Msg.MessageParts.Count-1)
а вот это не работает
Pred(Msg.MessageParts.Count-1)

Вложения Email Найти похожие ветки