При чтении почты 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