Отправка почты в Delphi
Запускаешь Delphi
Идем в Меню File ==> New ==> Application
Кидаем на форму компонент IdSMTP1 со вкладки Indy Client
Кидаем на форму компонент IdMessage1 со вкладки Indy Misc
Кидаем на форму компонент Button со вкладки Standard
Меняем у компонента Button свойство Caption на отправить
Кликаем по компоненту Button 2 раза тем самым создав на нем обработчик событий onClick Между procedure и begin пишем:
Code
var
MailSend:TidMessage;
После begin пишем:
Code
MailSend := TIdMessage.Create(Form1);
MailSend.Body.Add('собщение'); // тело сообщения
MailSend.From.Text := '<mail@mail.ru>'; //мыло отправителя
MailSend.Recipients.Add;
MailSend.Recipients.Items[0].Text := '<mail2@mail.ru>'; //мыло получателя
MailSend.Subject := 'Themes'; //Тема письма (писать по английски)
IdSMTP1.AuthenticationType := atLogin; //показываем что авторизовываемся
IdSMTP1.Host := 'smtp.mail.ru'; // указываем хост например (smtp.yandex.ru)
IdSMTP1.Username := 'login'; // логин
IdSMTP1.Password := 'password'; // пароль
IdSMTP1.Connect(); // подключаемся
if IdSMTP1.Connected then // если подключились то идем дальше
begin
IdSMTP1.Send(MailSend); // отправляем сообщение
end;
IdSMTP1.Disconnect; // после отправки отключаемся
end;
Все отправка готова думаю все понятно расписал.
