При чтении почты POP3 отделять Attachment и сохранять в файл
При чтении почты POP3 отделять Attachment и сохранять в файл
|
Привет, дорогая моя!
Наконец-то я добилась от этого придурка разрешения пользоваться компьютером! Он даже сделал мне собственный почтовый ящик, так что теперь мы сможем общаться не только по телефону. Пиши мне на адрес ***@JIZNI.NET
|
Почту читаю, используя компонент 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;
|