| Код |
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.
Нужно расшифровать сообщение? Подскажите в чем проблема? |