Як відправити 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- // відключаємося







» » Як відправити email в delphi