Рабочий пример отправки письма на почту

procedure TForm1.Button1Click(Sender: TObject);
begin
 
//выбираем SMTP сервер. В данный момент стоит yandex.
IdSMTP1.Host:= 'smtp.yandex.ru';
//ваш логин (для некоторых необходимо писать с доменом).
IdSMTP1.Username:= 'моя почта@yandex.ru';
//пароль от почты.
IdSMTP1.Password:= 'мой пароль от почты';
//порт, рекомендуем использовать 587.
IdSMTP1.Port:=587;
 
//Тема письма.
IdMessage1.Subject:= 'Тема письма';
//Адрес получателя.
IdMessage1.Recipients.EMailAddresses:= 'почта получателя@mail.ru';
//ваш email с которого идёт отправка.
IdMessage1.From.Address:= 'моя почта@yandex.ru';
//Текст который вы ходите послать.
IdMessage1.Body.Text:= 'Привет привет' ;
//Электронная подпись (Имя).
IdMessage1.From.Name:= 'Александр';
 // Для рус. языка
IdMessage1.ContentType:='text/html; charset=windows-1251';
IdMessage1.ContentTransferEncoding:='8bit';
//соединяемся
IdSMTP1.connect;
//отправляем
 if idSmtp1.Connected = TRUE then
IdSMTP1.Send(IdMessage1);
//отсоединяемся
IdSMTP1.Disconnect;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  SMTP    : TIdSMTP;
  msg     : TIdMessage;
  SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
begin
  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';
  msg.From.Name := 'AlexF';
  msg.Recipients.EMailAddresses := 'почта получателя@yandex.ru';
 
  SMTP.Connect;
  if SMTP.Connected then
    begin
      SMTP.Send(msg);
      ShowMessage ('Сообщение отправлено');
    end else
      ShowMessage ('Не удалось отправить сообщение');
  SMTP.Disconnect();
  SMTP.Free;
  msg.Free;
end;

const
  WinR: Array[0..66] of Char = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и',
    'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т',
    'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь',
    'э', 'ю', 'я', 'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё',                                                                /// с этой проблемой не знал как
    'Ж', 'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П',                                                               //как разобраться с кодировкой были 
    'Р', 'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ',                                                           // проблемы и с помощью этого решил
    'Ъ', 'Ы', 'Ь', 'Э', 'Ю', 'Я', '№');
  KoiR: Array[0..66] of Char = ('Б', 'В', 'Ч', 'З', 'Д', 'Е', 'Ј', 'Ц', 'Ъ', 'Й',
    'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'Т', 'У', 'Ф',
    'Х', 'Ж', 'И', 'Г' ,'Ю', 'Ы', 'Э', 'Я', 'Щ', 'Ш',
    'Ь', 'А', 'С', 'б', 'в', 'ч', 'з', 'д', 'е', 'і',
    'ц', 'ъ', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р',
    'т', 'у', 'ф', 'х', 'ж', 'и', 'г', 'ю', 'ы', 'э',
    'я', 'щ', 'ш', 'ь', 'а', 'с', '?');
//Из Cyrillic Windows-1251 в Cyrillic (KOI8-R)
function WinRToKoiR (aStr: String): String;
var
  i, j, Index: Integer;
begin
   Result := EmptyStr;
  for i := 1 to Length(aStr) do
   begin
    Index := -1;
     for j := Low(WinR) to High(WinR) do
      if WinR[j] = aStr[i] then
       begin
        Index := j;
        Break;
       end;
      if Index = -1 then
       Result := Result + aStr[i]
      else
       Result := Result + KoiR[Index];
   end;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
var i:integer;
begin
idmessage1:=tIdmessage.Create(form2);
IdSMTP1.Disconnect;                                          // Отключаем Smtp Для редактирования его свойств
  IdSocksInfo1.Authentication:=saNoAuthentication;             // Выставляем значение - Без аутентификации
  IdSocksInfo1.Port:=465;                                     // Порт по которому мы будем связываться
  IdSocksInfo1.Version:=svNoSocks;                             // ...
 
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvTLSv1;   // Метод шифрования
  IdMessage1.Clear;                                            // Очищаем письмо
  IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;           // устанавливаем SSL Handler для IdPOP3 SMTP
  IdSMTP1.UseTLS := utUseImplicitTLS;                          // Выставляем значение - использовать неявный TSL
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; // Метод шифрования
  IdSMTP1.Host := 'smtp.gmail.com';                            // Хост к которому мы подключимся   у каждой почты разный это от гугл почты
  IdSMTP1.Port := 465;                                        // Порт по которому мы будем связываться
  IdSMTP1.AuthType := atDefault;                              // Тип аутентификации: Login/Password
  IdSMTP1.UserName := edit1.text;                            // Логин от нашей почты
  IdSMTP1.Password := edit2.Text;                               // Пароль от нашей почты
 
         idMessage1.CharSet:='windows-1251';
  IdMessage1.From.Name :=winrtokoir(edit4.text);            // Адресат Имя или подпись
  IdMessage1.From.Address := edit1.text;                   // Адресат Email
 
 
 
  IdMessage1.Body.Text:=temail.Text;                                // Текст письма
  IdMessage1.Subject:=Winrtokoir(edit5.text);;           // Тема которая будет отображаться сверху письма
  idMessage1.Recipients.EMailAddresses:=edit3.text; // Адресант Email
 
    if button2.enabled=true then
     att:=TIdAttachmentfile.Create(idmessage1.MessageParts,FileName);
 
 
 
  IdSMTP1.Connect;                                      // Пытаемся подключиться...
       try
  if IdSMTP1.Connected then  begin IdSMTP1.Send(IdMessage1);
 showmessage('Сообщения отправлено');
     end else ShowMessage('Сообщение не было отправлено!');
  finally
  if idsmtp1.connected then
    IdSMTP1.Disconnect;             // По завершению мы отключаемся
  end;
 
  end;

IdSMTP1.AuthType(Default);                              // Тип аутентификации: Login/Password

IdSMTP1.AuthType:=satDefault;

const
  WinR: Array[0..66] of Char = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и',
    'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т',
    'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь',
    'э', 'ю', 'я', 'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё',                                                                /// с этой проблемой не знал как
    'Ж', 'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П',                                                               //как разобраться с кодировкой были
    'Р', 'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ',                                                           // проблемы и с помощью этого решил
    'Ъ', 'Ы', 'Ь', 'Э', 'Ю', 'Я', '№');
  KoiR: Array[0..66] of Char = ('Б', 'В', 'Ч', 'З', 'Д', 'Е', 'Ј', 'Ц', 'Ъ', 'Й',
    'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'Т', 'У', 'Ф',
    'Х', 'Ж', 'И', 'Г' ,'Ю', 'Ы', 'Э', 'Я', 'Щ', 'Ш',
    'Ь', 'А', 'С', 'б', 'в', 'ч', 'з', 'д', 'е', 'і',
    'ц', 'ъ', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р',
    'т', 'у', 'ф', 'х', 'ж', 'и', 'г', 'ю', 'ы', 'э',
    'я', 'щ', 'ш', 'ь', 'а', 'с', '?');
//Из Cyrillic Windows-1251 в Cyrillic (KOI8-R)
function WinRToKoiR (aStr: String): String;
var
  i, j, Index: Integer;
begin
   Result := EmptyStr;
  for i := 1 to Length(aStr) do
   begin
    Index := -1;
     for j := Low(WinR) to High(WinR) do
      if WinR[j] = aStr[i] then
       begin
        Index := j;
        Break;
       end;
      if Index = -1 then
       Result := Result + aStr[i]
      else
       Result := Result + KoiR[Index];
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
idmessage1:=tIdmessage.Create(form1);
IdSMTP1.Disconnect;                                          // Отключаем Smtp Для редактирования его свойств
  IdSocksInfo1.Authentication:=saNoAuthentication;             // Выставляем значение - Без аутентификации
  IdSocksInfo1.Port:=465; //     993                               // Порт по которому мы будем связываться
  IdSocksInfo1.Version:=svNoSocks;                             // ...
 
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvTLSv1;   // Метод шифрования
  IdMessage1.Clear;                                            // Очищаем письмо
  IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;           // устанавливаем SSL Handler для IdPOP3 SMTP
  IdSMTP1.HeloName:='HelloName';                               // Произвольное имя латиницей, нужно для майл ру
  IdSMTP1.UseTLS := utUseImplicitTLS;                          // Выставляем значение - использовать неявный TSL
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; // Метод шифрования
  IdSMTP1.Host := 'smtp.mail.ru';         //  imap            // Хост к которому мы подключимся   у каждой почты разный это от гугл почты
  IdSMTP1.Port := 465; //     993                                  // Порт по которому мы будем связываться
  IdSMTP1.AuthType:=satDefault;                           // Тип аутентификации: Login/Password
  IdSMTP1.UserName := 'ks@mail.ru';                            // Логин от нашей почты
  IdSMTP1.Password := '123a';                               // Пароль от нашей почты
 
         idMessage1.CharSet:='windows-1251';
  IdMessage1.From.Name :='Татьяна';  // winrtokoir(Edit1.Text);            // Адресат Имя или подпись  отправителя Таня
  IdMessage1.From.Address := 'ks@mail.ru';                   // Адресат Email
 
 
 
  IdMessage1.Body.Text:='wer wer wer wer wr fg';                                // Текст письма
  IdMessage1.Subject:='DF 1 ghh';           // Тема которая будет отображаться сверху письма
  idMessage1.Recipients.EMailAddresses:='le@inbox.ru'; // Адресант Email
 
    {if button2.enabled=true then
     att:=TIdAttachmentfile.Create(idmessage1.MessageParts,FileName); }
 
 
 
  IdSMTP1.Connect;                                      // Пытаемся подключиться...
       try
  if IdSMTP1.Connected then  begin IdSMTP1.Send(IdMessage1);
 showmessage('Сообщения отправлено');
     end else ShowMessage('Сообщение не было отправлено!');
  finally
  if idsmtp1.connected then
    IdSMTP1.Disconnect;             // По завершению мы отключаемся
  end;
end;