IdPOP31: как получить attachment?

← →
Ocean © (2003-03-04 12:14) [0]

Читаю сообщение:
IdPOP31.Retrieve(Index,IdMessage1);

Не поможете примером, как получить единственный attachment?

← →
S@shka © (2003-03-04 14:38) [1]

var
Msg : TIdMessage;
...
POP.Retrieve(MsgNumber, Msg);
for intIndex := 0 to Pred(Msg.MessageParts.Count) do
begin
if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
begin //general attachment
...
end
else
begin //body text
if Msg.MessageParts.Items[intIndex] is TIdText then
begin
...
end
end;
end;

Спасибо!

IdPOP31: как получить attachment? Найти похожие ветки