procedure TForm1.Button1Click(Sender: TObject);
var
MailSend:TidMessage;
MailSend := TIdMessage.Create(Form1); // В этой строке ошибка после MailSend.Это от меня))
begin
MailSend.Body.Add(edit1.Text + ';' + edit2.Text); //текст сообщения равен текст первого эдита потом точка с запятой и текст второго эдита
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;Добавлено (16.02.2012, 14:25)
---------------------------------------------
Код вообще кривой...Исправил эту проблему появилась другая!!
