Отправка сообщения на E-mail через SMTP

  Как отправить сообщение на почту через Delphi? Очень просто!
И так, начнем с самого обычного процесса: кидания компонентов на форму :)

  1. Компонент IdSMTP из вкладки Indy Clients;
  2. Компонент IdMessage из вкладки Indy Misc;
  3. Компонент IdEncoderMIME1 из вкладки Indy Misc;
  4. Компонент Button из вкладки Standart.
Form
Form

После строки {$R *.dfm} пишем код. Комментарии внутри.
{$R *.dfm}

//Функция конвертирования в кодировку windows-1251
function ConvertToWIN1251(instr:string):string;
begin
  result:='=?'+'Windows-1251'+'?B?'+form1.IdEncoderMIME1.Encode(instr)+'?=';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
attach: TidAttachment;
begin

  IdSMTP1.AuthenticationType:= atLogin;
  IdSMTP1.Username:='user@mail.ru'; //Логин
  IdSMTP1.Password:='password'; //Пароль
  IdSMTP1.Host:='smtp.mail.ru'; //Хост 
  //Хосты: smtp.inbox.ru; smtp.list.ru; smtp.bk.ru; smtp.yandex.ru и т.д.
  IdSMTP1.Port:=25; //Порт (25 - по умолчанию)
  //Порты mail.ru: 587 и 2525 (без шифрования) или 465 (с шифрованием)

  IdMessage1.CharSet:='windows-1251'; //Кодировка в теле сообщения
  IdMessage1.ContentType:='text/plain';
  // или 
  //IdMessage1.ContentType:='text/html'; 
  //если в теле сообщения будет присутствовать HTML код
  IdMessage1.Body.text:='Текст'; //Текст сообщения
  IdMessage1.Subject:=ConvertToWIN1251('Тема'); //Тема сообщения
  IdMessage1.From.Address:='user@mail.ru'; //Адрес отправителя
  //IdMessage1.From.Name:=ConvertToWIN1251('User'); //Имя отправителя
  IdMessage1.Recipients.EMailAddresses:='send_user@mail.ru'; //Кому отправить письмо (можно через запятую если несколько e-mail'ов)
  IdMessage1.IsEncoded:=true;
  //attach:=TIdAttachment.Create(IdMessage1.MessageParts,'Путь до файла'); //Вложение

  try
    //Соединение с почтовым сервером
    IdSMTP1.Connect();
    IdSMTP1.Send(IdMessage1);
    showmessage('Сообщение отправлено');
  except
    showmessage('Ошибка при отправке сообщения');
  end;
//Отсоединяемся от почтового сервера
IdSMTP1.Disconnect;
end;
Вот и всё, Удачи!



Добавил(а): oktavius Дата: 2012-11-21
БРАВО!)



Добавил(а): AndHacker Дата: 2014-11-02
Этот пример, сейчас, точно работает?



Добавил(а): Lomanu4 Дата: 2014-11-22
У меня пишет вот такую ахинею вызвал исключение класса eidprotocolreplyerror с сообщением Smtp is available only with SSL or TLS connection enable


  1. ZmnGM
    ZmnGM 10 months ago
    Medicament information. Cautions. <a href="https://viagra4u.top">cost cheap viagra without insurance</a> in USA. Best what you want to know about medicine. Get information here.
    [url=https://northstartribune.com/2020/08/13/in-defense-of-tigrais-federal-autonomy/#comment-28304]All trends of drug.[/url] [url=http://ggtronics.com/ticket-submitted.php?id=NDY0Mjg=]Best about drugs.[/url] [url=http://en.nextool.cn/index.php?g=&amp;m=article&amp;a=index&amp;id=79&amp;cid=4]All news about medicine.[/url] 97305aa
  2. 564868
    564868 8 months ago
    Третий вариант полного содержания объявления
  3. 272484
    272484 8 months ago
    Перевозка грузов из Китая в Россию по выгодным ценам. Направьте свою заявку на расчёт стоимости перевозки на нашу электронную почту.
  4. hwlgnotic
    hwlgnotic 7 months ago
    Отправка сообщения на E-mail через SMTP - The Delphi
    [url=http://www.gb3vc288zq2r8ju3hsjj2213669m1gg8s.org/]uhwlgnotic[/url]
    <a href="http://www.gb3vc288zq2r8ju3hsjj2213669m1gg8s.org/">ahwlgnotic</a>
    hwlgnotic http://www.gb3vc288zq2r8ju3hsjj2213669m1gg8s.org/
  5. fcthsmfwy
    fcthsmfwy 7 months ago
    Отправка сообщения на E-mail через SMTP - The Delphi
    [url=http://www.gw3ı1agg8544ozx8bt06un113y1s4h46s.org/]ufcthsmfwy[/url]
    <a href="http://www.xn--gw31agg8544ozx8bt06un113y1s4h46s-80e.org/">afcthsmfwy</a>
    fcthsmfwy http://www.gw3ı1agg8544ozx8bt06un113y1s4h46s.org/
  6. vkybwfplr
    vkybwfplr 6 months ago
    Отправка сообщения на E-mail через SMTP - The Delphi
    <a href="http://www.gmq7xlzs5s82y43168x53ln79n0fi93os.org/">avkybwfplr</a>
    [url=http://www.gmq7xlzs5s82y43168x53ln79n0fi93os.org/]uvkybwfplr[/url]
    vkybwfplr http://www.gmq7xlzs5s82y43168x53ln79n0fi93os.org/
  7. hlsifmvyso
    hlsifmvyso 6 months ago
    Отправка сообщения на E-mail через SMTP - The Delphi
    hlsifmvyso http://www.ghn260tmv8322b5a9ky00r8f9x759bkgs.org/
    [url=http://www.ghn260tmv8322b5a9ky00r8f9x759bkgs.org/]uhlsifmvyso[/url]
    <a href="http://www.ghn260tmv8322b5a9ky00r8f9x759bkgs.org/">ahlsifmvyso</a>
  8. Derly
    Derly 6 months ago
    <a href="http://msc.com.ru">Таможенный агент Азия-Трейдинг</a> работает во внешнеэкономической деятельности уже много лет. При этом клиенты компании минимально участвует в процессе международной доставки грузов и <a href="http://msc.com.ru">таможенном оформлении</a> . Наш опыт позволяет решать любые задачи поставленные заказчиком.
  9. Derly
    Derly 5 months ago
    Автомобили со стоянок и аукционов Японии, таможенное оформление, доставка в порт Находка и Владивосток из Отару, Фусики, Ниигата. Тел 79910690696 WhatsApp
    autoauction.nhk@gmail.com https://api.whatsapp.com/send/?phone=79910690696&amp;text&amp;app_absent=0
  10. kdexdrnwo
    kdexdrnwo 5 months ago
    Отправка сообщения на E-mail через SMTP - The Delphi
    kdexdrnwo http://www.g6s3e3e9j8kc73ve7d629o5av14fv3n2s.org/
    <a href="http://www.g6s3e3e9j8kc73ve7d629o5av14fv3n2s.org/">akdexdrnwo</a>
    [url=http://www.g6s3e3e9j8kc73ve7d629o5av14fv3n2s.org/]ukdexdrnwo[/url]
  11. Derly
    Derly 5 months ago
    Автомобили, авторазбор, спецтехника, мототехника из Японии, без пробега по РФ. Быстрая доставка и низкие цены на таможенное оформление физ.лиц и юр.лиц. Тел 79910690696 WhatsApp
  12. Derly
    Derly 4 months ago
    [url=http://vl-broker.ru]Автомобили со стоянок[/url] и аукционов Японии, таможенное оформление, доставка в порт Находка и Владивосток из Отару, Фусики, Ниигата.
  13. ejrdtzpf
    ejrdtzpf 4 months ago
    Отправка сообщения на E-mail через SMTP - The Delphi
    <a href="http://www.gw9gi531zb4llpe06nx3y8xe12361y97s.org/">aejrdtzpf</a>
    ejrdtzpf http://www.gw9gi531zb4llpe06nx3y8xe12361y97s.org/
    [url=http://www.gw9gi531zb4llpe06nx3y8xe12361y97s.org/]uejrdtzpf[/url]
  14. jpyjngpwep
    jpyjngpwep 3 months ago
    Отправка сообщения на E-mail через SMTP - The Delphi
    jpyjngpwep http://www.gc893fe811er19b9f1k62tlko80bk25ws.org/
    <a href="http://www.gc893fe811er19b9f1k62tlko80bk25ws.org/">ajpyjngpwep</a>
    [url=http://www.gc893fe811er19b9f1k62tlko80bk25ws.org/]ujpyjngpwep[/url]
  15. Derly
    Derly 2 months ago
    <a href="https://ved-line.ru/customs-avtorazbor">аукцыон япония</a>
  16. Elton
    Elton a month ago
    Your website's rank is going down slowly; your competition has a lot more outstanding backlinks than you do, and one of our services might be able to help you grow your business.
    Your competitors don't have Wikipedia backlinks, so you'll need to develop them.

    Our All Service List: https://bit.ly/3FuP6v5

    Today We Offer Wikipedia Permanent Backlinks Service
    Here is a sample link: https://bit.ly/3owRGuA
    Learn more about it: https://bit.ly/3D5sMpS
    25% Sale on Going

    We have a previous functioning portfolio, just let us know if you'd want to look at it.
    We are waiting for your reply.

    Best Regards
    Asif Rahman
    Skype: shiman.neer
    Email: help@pageranky.com
  17. mivsvfgorx
    mivsvfgorx 27 days ago
    Отправка сообщения на E-mail через SMTP - The Delphi
    mivsvfgorx http://www.ggzlxmt62zym0ec616698n65159z04dcs.org/
    <a href="http://www.ggzlxmt62zym0ec616698n65159z04dcs.org/">amivsvfgorx</a>
    [url=http://www.ggzlxmt62zym0ec616698n65159z04dcs.org/]umivsvfgorx[/url]
  18. beautygocams
    beautygocams 24 days ago
    На наше период заняться оргазм по желанное период и произвести наслаждение в момент, если Вам его захочется совсем не является проблема. Даже регулярно пользователь одинокий и близи только табло компьютера – вместе с содействием нашему онлайн-веб-портала <a href="https://rt.beautygocams.com/">эротический видеочат бесплатно</a> настоящий контент вполне обеспечить клиенту массу жарких настроение также отклика от прекрасных женщин, каковы желают совместно с юзером утешиться. На ресурсу виртуального порно читатель сможет воспользоваться всяческие форматами коммуникации, начиная с очередного просмотра живого трансляции с веб-видеокамеры также финишируя частным общением с понравившейся девченкой. Специально для практичности пользователь сможет оформить простую регистрацию также включить личный страничку, где достаточно будет накапливать бонусы затем использовать монеты на право привилегии пользователя именно на указанному порно-сайте. Ищите на категориям, выбирайте видео тогда самостоятельно заведуйте движениями партнерши через чатику либо вебку вместе с очень эротичными женщинами РФ.
  19. tetyngmnxh
    tetyngmnxh 18 days ago
    Отправка сообщения на E-mail через SMTP - The Delphi
    <a href="http://www.gn3v9hl50803q6d82iy24n05vvqm10uws.org/">atetyngmnxh</a>
    tetyngmnxh http://www.gn3v9hl50803q6d82iy24n05vvqm10uws.org/
    [url=http://www.gn3v9hl50803q6d82iy24n05vvqm10uws.org/]utetyngmnxh[/url]
  20. less
    less 7 days ago
    Поставщик карьерных шин 315 80 R22.5 китайского производства [url=https://ved-line.ru/supply/article_post/gruzovye-shiny-315-80r22-5]APLUS[/url]
Отменить.