Как отправить email в delphi

Как отправить email в delphi
Программирование на delphi

При разработке некоторых программ появляется желание знать, что происходит с программой при работе либо, что творится на компьютере пользователя: нам необходимо вести лог, но его надо как-то отправить на нужный email.
Я сам в поисках данного кода просидел долго и видел огромное количество вопросов “как отправить письмо на почту?”, “как отправить письмо с вложением?”, поэтому пользуйтесь инструкцией…

Инструкция

Уровень сложности: Несложно

Что вам понадобится:

  • Руки
  • Delphi
  • Интернет
  • Email

1 шаг

Как отправить email в delphi
Например, так...

Для начала запустим Delphi!
Потом кладем на форму компоненты Button, IdSMTP (вкладка Indy Clients) и IdMessage (вкладка Indy Misc).

2 шаг

Как отправить email в delphi
Авторизация

Кликаем дважды по нашему Button и переходим к коду…
первым надо прописать в процедуру следующее:
IdSMTP1.Host:= ‘smtp.mail.ru’ ; //адрес smtp-сервера (для mail.ru)
//3 строчки ниже для сервера, требующего авторизацию
IdSMTP1.AuthenticationType:= atLogin;
IdSMTP1.Username:= ‘логин’;
IdSMTP1.Password:= ‘пароль’;

Я думаю, тут всё понятно…
Адрес smtp-сервера Яндекс – smtp.yandex.ru, Google – smtp.gmail.com и т.д.

3 шаг

Как отправить email в delphi
Составление письма

Далее уже пишем само сообщение:

IdMessage1.Subject:=‘Greeting’; //Тема сообщения IdMessage1.Recipients.EMailAddresses:= ‘кому"mail":/members/mail.ru’; //адрес получателя IdMessage1.From.Address:= ‘от кого"mail":/members/mail.ru’; //адрес отправителя IdMessage1.Body.Text:= ‘Привет!’ ; //Текст сообщения IdMessage1.From.Name:= ‘Колька’; // Отправитель письма

При необходимости можно сделать, чтоб все данные вводились в поля, например, положить на форму Edit для текста сообщения и дописать IdMessage1.Body.Text:=Edit1.Text.

4 шаг

Как отправить email в delphi
Конец.

И, наконец, заключительная часть!
Дописываем
TIdAttachment.Create(IdMessage1.MessageParts,‘C:\Log.txt’);
Файл C:\Log.txt будет прикреплен к письму.

И отправим письмо…
IdSMTP1.connect; // соединяемся
IdSMTP1.Send(IdMessage1); // отправляем
IdSMTP1.Disconnect; // отключаемся

Обсуждение

Ваш комментарий

Запросить инструкцию

Не нашли нужную пошаговую инструкцию?
Возможно, что кто-то из посетителей сайта сможет помочь. Оставьте запрос прямо сейчас, если Вы уверены, что эта тема ещё не освещена на нашем проекте!

Рейтинг
  1. +
  2. 0
0
1