При чтении почты POP3 отделять Attachment и сохранять в файл
Почту читаю, используя компонент TNMPOP3 (стандартный в поставке D5),
еще пробовал использовать библитеку Indy, но не помогло. А проблема заключается в том, что после прочтения письма, невозможно отделить аттачмент от тела. Но это происходит не со всеми письмами. Если я отправлю письмо с аттачем, то я могу его нормально читать и разбирать, а если отправляет Заказчик, то получается то, что я описал. Причем, Outlook и theBat, эти письма нормально читают и аттач МОЖНО сохранить.
for intIndex := 0 to Pred(Msg.MessageParts.Count) dobeginif (Msg.MessageParts.Items[intIndex] is TIdAttachment) thenbegin//general attachment
TIdAttachment(Msg.MessageParts.Items[intIndex]).SaveToFile(
TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename);
TIdAttachment.Create(Msg1.MessageParts,
TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename);
endelsebegin//body textif Msg.MessageParts.Items[intIndex] is TIdText thenbegin
Memo1.Lines.Clear;
Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[intIndex]).Body);
endend;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "При чтении почты POP3 отделять Attachment и сохранять в файл", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!