При чтении почты POP3 отделять Attachment и сохранять в файл
Почту читаю, используя компонент 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;
|
|
|
|
|
паркетная доска . Media street group 495 221-08-44 Медиастрит груп mediastreet group. . запчасти mercedes . аренда частного дома на сутки . |
