https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=46611&view=findpost&p=305961 Thu, 26 Feb 2004 09:25:26 +0000 https://forum.sources.ru/index.php?showtopic=46611&view=findpost&p=305961
...
k:=1;
while IdIMAP41.Retrieve(k,Msg) do
begin
for i:=0 to msg.MessageParts.Count-1 do
begin
if (Msg.MessageParts.Items[i] is TIdAttachment) then
begin
TIdAttachment(Msg.MessageParts.Items[i]).SaveToFile('c:\temp\'+TIdAttachment(Msg.MessageParts.Items[i]).Filename);
end
else
begin
if Msg.MessageParts.Items[i] is TIdText then
begin
Memo1.Lines.Clear;
Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[i]).Body);
end
end;
end;
k:=k+1;
end;]]> tarzan82 Delphi: Сетевое программирование