Поради на всі випадки життя.
Прохання оцінити статтю -
1 Зірка2 Зірки3 Зірки4 Зірки5 Зірки (Не оцінено)
Loading ... Loading ...

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



Програмування на delphi

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

Інструкція
Рівень складності: Нескладно

Що вам знадобиться:

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

1 крок



Наприклад, так…

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

2 крок



Авторизація

Двічі клікаємо на нашу 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 крок



Складання листа

Далі вже пишемо саме повідомлення:

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 крок



Кінець.

І, нарешті, заключна частина!
Дописуємо
TIdAttachment.Create(IdMessage1.MessageParts,’C:Log.txt’);
Файл C:Log.txt буде прикріплений до листа.

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


Вам можливо буде цікаво.

  • Як відрізнити оригінальний, справжній iPhone від китайської підробки? З появою iPhone багато китайські мобільні виробники почали робити неотличимие ​​своїм виглядом підробки, але їх все ж можна відрізнити від справжнього iPhone. У цій інструкції я розповім вам, я...
  • Як прикрасити джинсові шорти мереживом Хоч літо в цьому році в європейській частині Росії не спекотне, натомість у західній Європі небувала спека. Та й традиційні літні курорти не підводять, радують теплом і пляжами. Так що, якщо ...
  • Як приготувати вино з чорноплідної горобини. Посадки чорноплідної горобини широко поширені. У неї дуже смачні і корисні плоди. З неї варять варення, роблять желе і повидло. А от вино воліють робити з інших фруктів і ягід, хоча з чорнопл...
  • Як користуватися торрентами Торренти - загальна назва для системи обміну файлами. Користувачі саме обмінюються файлами, тобто один викачує інформацію з комп'ютера іншого. Подібна система знайшла величезне поширення. Так я...

Напишіть відгук

Ваша пошт@ не публікуватиметься. Обов’язкові поля позначені *


Можна використовувати XHTML теґи та атрибути: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Ми допоможемо Вам стати впоратись з будь якою життевою ситуацією за допомогую простих та дієвих інструкцій.

Копирайт © 2013.