Помогите с delphi.
Пишу почтовик. Мне нужно сканировать письма в ящике на mail.ru. Делаю так:
IdPOP31.Host:='pop3.mail.ru'; // адрес почтового сервера
IdPOP31.Port:=110; // порт по которому будет осуществляться подключение
IdPOP31.Username:='Makhonin-Oleg'; // Логин пользователя
IdPOP31.Password:='******'; // пароль пользователя
IdMessage1.Clear; // очистка буфера для сообщения
IdPOP31.Connect; // подключение по протоколу POP3, по настройкам в компоненте IdPOP3, с именем POP3
Memo1.Clear; // очистка компонента memo для отображения текста письма.
IdMessage1.CharSet := 'windows-1251';
IdPOP31.Retrieve(1,IdMessage1); // получение одного сообщения
Memo1.Lines.AddStrings(IdMessage1.Headers); // передача сообщения из компонента IdMessage в memo
IdPOP31.Delete(1); // удаление с сервера, полученного сообщения
IdPOP31.Disconnect; // разрыв связи
Но эта программа сканирует письма в папке сомнительные, а мне надо чтобы она сканировала папку входящие. Что надо исправить?
И еще выводит всякие закорючки вместо текста. Как исправить?
сомнительные письма или нет решает почтовик
протокол поп3 никаких сомнительных не подразумевает. Этим занимается веб-сервер. В поп3 есть только входящие, и туда сливается всё, прошедшее через фильтры. А куда оно отобразится в веб-форме, решает веб-сервер. Соответственно, тебе нужен череззадый клиент веб-сервера :)
закорючки - IdMessage1.CharSet := 'windows-1251'; не совпадает с кодировкой письма возможно. может быть там koi8 или cp1251 попробуйте.
очистите все папки в ящике, киньте тестовое письмо и пробуйте. в подключении ничего нет эдакого, ведущего к сомнительным