procedure
TMail
.
Button2Click(Sender: TObject);
begin
IdMessage1:=TIdMessage
.
Create;
IdMessage1
.
From
.
Address:=
'marat.tuhtarov@yandex.ru'
;
IdMessage1
.
From
.
Name:=
'Злой админ'
;
IdMessage1
.
Recipients
.
EMailAddresses:=
'pirat03071988@mail.ru'
;
IdMessage1
.
ContentType:=
'text/plain'
;
IdMessage1
.
CharSet:=
'windows-1251'
;
IdMessage1
.
Body
.
Text:=
'ТЕСТ'
;
IdMessage1
.
Subject:=
'Рассылка новых объектов'
;
IdMessage1
.
Date:=now;
IdSMTP := TIdSMTP
.
Create(
nil
);
IdSMTP
.
Host:=
'smtp.yandex.ru'
;
IdSMTP
.
Port:=
465
;
IdSMTP
.
Username:=
'marat.tuhtarov'
;
IdSMTP
.
Password:=
'MyPassword'
;
IdSMTP
.
AuthType:=satDefault;
IdSSLIOHandlerSocketOpenSSL:=TIdSSLIOHandlerSocketOpenSSL
.
Create(
nil
);
IdSSLIOHandlerSocketOpenSSL
.
Destination :=IdSMTP
.
Host+
':'
+IntToStr(IdSMTP
.
Port);
IdSSLIOHandlerSocketOpenSSL
.
Host:=IdSMTP
.
Host;
IdSSLIOHandlerSocketOpenSSL
.
Port:=IdSMTP
.
Port;
IdSSLIOHandlerSocketOpenSSL
.
DefaultPort:=
0
;
IdSSLIOHandlerSocketOpenSSL
.
SSLOptions
.
Method:=sslvTLSv1;
IdSSLIOHandlerSocketOpenSSL
.
SSLOptions
.
Mode:=sslmUnassigned;
IdSMTP
.
IOHandler:=IdSSLIOHandlerSocketOpenSSL;
IdSMTP
.
UseTLS:=utUseExplicitTLS;
try
IdSMTP
.
Connect();
except
MessageBox(handle,
pchar
(
'ОШИБКА!!! Подключение к SMTP серверу не удалось'
+#
10
+#
13
+
'Проверьте настройки программы, а так же не блокируется ли'
+#
10
#
13
+
'порт SMTP сервера антивирусом или файреволом(брандмауэром)'
),
pchar
(Mail
.
Caption),
48
);
exit;
end
;
IdSMTP
.
Send(IdMessage1);
Application
.
ProcessMessages;
IdSMTP
.
Disconnect;
end
;