Письма проверяються, но приходит само тело письма, как решить проблему?
-------
Memo2.Lines.Add(' '+IntToStr(i)+': От: '+DecodeStr(IdMessage1.From.Text));
Memo2.Lines.Add(' Адрес: '+DecodeStr(IdMessage1.From.Address));
Memo2.Lines.Add(' Имя: '+DecodeStr(IdMessage1.From.Name));
Memo2.Lines.Add(' Тема: '+DecodeStr(IdMessage1.Subject));
Memo2.Lines.Add(' Сервер: '+DecodeStr(IdMessage1.MsgId));
Memo2.Lines.Add(' Attachement Encoding: '+DecodeStr(IdMessage1.AttachmentEncoding));
Memo2.Lines.Add(' Charset: '+DecodeStr(IdMessage1.CharSet));
Memo2.Lines.Add(' Текст сообщения: '+DecodeStr(IdMessage1.Body.Text));
Memo2.Lines.Add(' ');
|