Написание почтового клиента

14.03.2009
13
0
#1
Код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int NumOfMsgs;
IdPOP31->Username="username";  // адрес электронной почты в формате (xxx@xxx.xx)
IdPOP31->Password="pass"; // пароль к данному почтовому ящику
IdPOP31->Host="pop";	 // POP3 сервер (pop.mail.ru; pop3.ukr.net)
IdPOP31->Port=110;	 // порт
IdPOP31->Connect();	 // подключаемся
// если подключение прошло успешно
NumOfMsgs = IdPOP31->CheckMessages();
// записываем в NumOfMsgs количество писем
// выводим сообщения в Мемо
Memo1->Lines->Add("Подключение прошло успешно!");
Memo1->Lines->Add("У вас "+IntToStr(NumOfMsgs)+" сообщений");
IdPOP31->Retrieve(1,IdMessage1);
Label1->Caption= IdMessage1->From->Text;
Label2->Caption = Form1->IdMessage1->Recipients->EMailAddresses;
Form1->Label3->Caption= Form1->IdMessage1->CCList->EMailAddresses;
Label4->Caption = IdMessage1->Subject;
Label5->Caption = FormatDateTime("dd mmm yyyy hh:mm:ss", IdMessage1->Date);
Label6->Caption = IdMessage1->ReceiptRecipient->Text;
Label7->Caption = IdMessage1->Organization;
Label8->Cpation= IdMessage1->Body->Text;
IdPOP31->Disconnect();	  // Для отключения
}
Не могу получить текст сообщения, ошибка This is a multi-part in Mime format.
Нужно расшифровать сообщение? Подскажите в чем проблема?
 
14.03.2009
13
0
#3
sax_ol
знаю, что надо делать через MessagePart пробегать по циклу,а нельзя по подробнее компоненты недавно начал изучать и если можно ответить на предыдущий пост.
 
14.03.2009
13
0
#4
использую stringgrid для отображения темы,от кого,даты. Подскажите как можно отсортировать сообщения по дате и при нажимании в stringgrid на тему или от кого,чтобы в memo отображалось тело сообщения?
 
14.03.2009
13
0
#5
sax_ol
еще подскажи, как подгружать только новые сообщения,а то у меня при нажатии "получить" беру все письма с сервера.