Люди добрые)Доброе время суток. Вот попалась программа мне(она работает так) Человек вводит данные и подтверждает.После чего автору проги приходит на почту сообщение с этими даннми. Как можно и что нужно для этого?
Среда разработки и не много знаний + выход в интернет. Или чуть - чуть денежек и программист с интернета
procedure TForm1.Button4Click(Sender: TObject); begin SMTP.Host:=’mail.58r.ru’; // адрес почтового сервера SMTP.Port:=25; // порт по которому будет осуществляться подключение SMTP.Username:=’test+58r.ru’; // логин пользователя SMTP.Password:=’12345666′; // пароль пользователя SMTP.AuthenticationType:=atLogin; // тип подключения к серверу – с авторизацией with IdMessage do begin Body.Assign(Memo1.Lines); // передача данных из memo в компонент IdMessage, для последующей отправки From.Text := ‘test@58r.ru’; // майл отправителя письма Recipients.EMailAddresses := ‘test@58r.ru’; // майл получателя письма Subject := ‘Programmersclub.ru’; // тема письма end; SMTP.Connect; // соединение с почтовым сервером try showmessage(’Произошло подключение к серверу’); // сообщение о удачном подключении к серверу SMTP.Send(IdMessage); // отправка письма на сервер finally SMTP.Disconnect; // разрыв соединения end; end;
Короче: среда разработаки Delphi 7 библ Indy 10 компонент Idsmtp из Indy Clients + idmessage из Indy Misc кидаем на форму баттон1 код пишу прямо здесь так что мб будет глупая ошибка) procedure button1click; begin idsmtp1.host:='smtp.mail.ru'; idsmtp1.port:=2525; idsmtp1.usernamet:='логин почты без @mail.ru'; idsmtp1.password:='пароль от почты'; idmessage1.Body.text:='ТЕКСТ писмьа'; idmessage1.from.Text:='от кого '; idmessage1.Recipients.EMailAddresses:='получатель'; idmessage1.Subject:='тема'; idsmtp1.Connect(); idsmtp1.Send(idmessage1); idsmtp1.Disconnect; end. всё готово.
Code: MessageBox(0,TEXT("Для получения регистационного кода отправьте на электронный адрес program_author@progasite.ru свои данные: ФИО, адрес, дату рождения, номер кредитки, cvv2 код и девичью фамилию матери(не обязательно)!\n""),TEXT("Регистрация"),MB_OK);
C# Создаешь форму, кидаешь на нее textBox Подключаешь: Code: using System.Net.Mail; using System.Net.Mime; В событии кнопки пишешь: Code: SmtpClient S = new SmtpClient("smtp.mail.ru"); S.Credentials = new NetworkCredential("e-mail", "password"); MailMessage M = new MailMessage(); M.From = new MailAddress("e-mail"); M.To.Add(new MailAddress("Куда отправлять")); M.Subject = textBox1.Text; // Текст сообщения M.Body = "Привет !!!"; //Заголовок сообщения S.Send(M); Писал сразу здесь так что возможны мелкие ошибки.