![](/logo_grey.gif)
Последние записи
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
- Lazarus, проверка существования строки таблице
- BASM и record, обращение к полям записи
- Web PHP Framework Symfony
![](http://programmersclub.ru/slurm3.jpg)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
![](http://programmersclub.ru/katajpg.jpg)
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
27th
Фев
INDY — отправка на емейл
Posted by obzor under Delphi
Реализовать отправку сообщений из Memo на указанный e-mail средствами Indy по нажатию кнопки. Как?
procedure TfrmAbout.btnSendClick(Sender: TObject);
var
SMTP : TIdSMTP;
msg : TIdMessage;
SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
oldcur: TCursor;
begin
if Trim(Memo1.Lines.Text) ='' then
begin
ShowMessage(' Письмо пустой .!!! ');
Memo1.SetFocus;
Abort;
end
else
//-------------------------
oldcur := screen.Cursor;
screen.Cursor := crHourGlass;
//-------------------------
try
SMTP := TIdSMTP.Create(Application);
SMTP.Host := 'smtp.mail.ru';
SMTP.Port := 465;
SMTP.AuthType := satDefault;
SMTP.Username := '****"@mail.ru';
SMTP.Password := '********';
//--- SSL
SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
SSLOpen.Host := SMTP.Host;
SSLOpen.Port := SMTP.Port;
SSLOpen.DefaultPort := 0;
SSLOpen.SSLOptions.Method := sslvSSLv23;
SSLOpen.SSLOptions.Mode := sslmUnassigned;
SMTP.IOHandler := SSLOpen;
SMTP.UseTLS := utUseImplicitTLS;
msg := TIdMessage.Create(Application);
msg.Subject := 'Название темы';
msg.From.Address := '****@mail.ru'; // From= от куда
msg.From.Name := 'xxxxxx '; // Фио отправители
msg.Recipients.EMailAddresses := 'Vasia@gmail.com'; // Получатель
msg.ContentType := 'text/plain; CharSet = UTF-8'; // Кодировка
msg.Body.Text := AnsiToUtf8(Memo1.Lines.Text);
SMTP.Connect;
if SMTP.Connected then
begin
SMTP.Send(msg);
ShowMessage ('Сообщение отправлено!');
end else
ShowMessage ('Не удалось отправить сообщение');
SMTP.Disconnect();
SMTP.Free;
msg.Free;
finally
//------------------------------------
screen.Cursor := oldcur;
Memo1.Lines.Text := '';
end;
end;
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
![пеллетные котлы](http://programmersclub.ru/respective.jpg)
пеллетные котлы
![пеллетный котел](http://programmersclub.ru/emtas.jpg)
Пеллетный котел Emtas
![форум программистов](http://programmersclub.ru/banf336х280.gif)
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)