При чтении почты POP3 отделять Attachment и сохранять в файл
Материал из DRKB
Почту читаю, используя компонент tnmpop3 (стандартный в поставке d5), еще пробовал использовать библитеку indy, но не помогло. А проблема заключается в том, что после прочтения письма, невозможно отделить аттачмент от тела. Но это происходит не со всеми письмами. Если я отправлю письмо с аттачем, то я могу его нормально читать и разбирать, а если отправляет Заказчик, то получается то, что я описал. Причем, outlook и thebat, эти письма нормально читают и аттач МОЖНО сохранить.
for IntIndex := 0 to Pred(Msg.MessageParts.Count) do
begin
if (Msg.MessageParts.Items[IntIndex] is TIdAttachment) then
begin // general attachment
TIdAttachment(Msg.MessageParts.Items[IntIndex]).SaveToFile(
TIdAttachment(Msg.MessageParts.Items[IntIndex]).FileName);
TIdAttachment.Create(Msg1.MessageParts,
TIdAttachment(Msg.MessageParts.Items[IntIndex]).FileName);
end
else
begin // body text
if Msg.MessageParts.Items[IntIndex] is TIdText then
begin
Memo1.Lines.Clear;
Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[IntIndex]).Body);
end;
end;
end;
Source: http://articles.org.ru/
ID: 03411