Отправить сообщение на почту

@TEKJ · Регистрация: 11.11.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер. Как в делфи 7 осуществить отправку текста из RichEdit на электронную почту?

@NIKOLAYY · 03.03.2013, 22:39

Да это просто.
Кидаем на форму Button1, IdSMTP1, IdMessage1 и RichEdit1 и пишем код на кнопке:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Username := 'pochta@.ru'; //логин на сервере
  IdSMTP1.Password := 'asdfgh'; // пароль
  IdSMTP1.Host := 'smtp.yandex.ru'; // URL smtp
 
  IdMessage1.Body.Text := RichEdit1.Text; // текст из рич- эдита
  IdMessage1.From.Text := 'pochta@.ru'; //  отправитель
  IdMessage1.Recipients.EMailAddresses := 'pochta@.ru'; // получатель
  IdMessage1.Subject := 'New theme'; // тема письма
  //TIdAttachment.Create(IdMessage1.MessageParts,'c:\1.txt'); //вложение если нужно
 Try
  IdSMTP1.Connect();
  IdSMTP1.Send(IdMessage1);
 except
    //ShowMessage('Сообщение не отправлено'); //отсутствие инета или прочие проблемы
 end;
  IdSMTP1.Disconnect();
 end;

Я исключение в код добавил но ты можеш его убрать если ненужно, но тогда при сбое ошибки будут вылетать.

@TEKJ 13 / 13 / 14 Регистрация: 11.11.2012 Сообщений: 147
		1
	Отправить сообщение на почту 03.03.2013, 20:51. Показов 1551. Ответов 1 Метки нет (Все метки) Добрый вечер. Как в делфи 7 осуществить отправку текста из RichEdit на электронную почту? 0

	03.03.2013, 22:39

Отправить сообщение на почту

Решение