procedure TMainForm.ButtonSendClick(Sender: TObject);
var
SMTP : TIdSMTP;
msg : TIdMessage;
SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
begin
//////////////////////////
Я так понимаю что где то тут прописать нужно код ?
/////////////////////////
SMTP := TIdSMTP.Create(Application);
SMTP.Host := 'smtp.yandex.ru';
SMTP.Port := 465;
SMTP.AuthType := satDefault;
SMTP.Username := 'yourlogin@yandex.ru';{Должно совпадать с msg.From.Address}
SMTP.Password := 'yourpassword';
//это необходимо использовать для 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.ContentType:='text/html; charset=windows-1251';
msg.Body.Text:='Привет из Delphi';
msg.Subject := 'Проверка почты';
msg.From.Address := 'yourlogin@yandex.ru'; {<<Должно совпадать с SMTP.UserName}
msg.From.Name := 'YourName';
msg.Recipients.EMailAddresses :='RecipientLogin@gmail.com';
