Как подключить прокси при отправки сообщения на почту

[Kirilis2018]

Как подключить прокси при отправки сообщения на почту:

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';

Вот так я так понял можно проверить произошло подключение или нет:

Var
LHandler: TIdSSLIOHandlerSocketOpenSSL;
Src : string;
begin
try
  IdHTTP1 := TIdHTTP.Create(nil);
  try
    LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
    IdHTTP1.IOHandler := LHandler;
 
    IdHTTP1.ProxyParams.ProxyServer := '93.113.207.105';
    IdHTTP1.ProxyParams.ProxyPort := 5836;
 
    Src := IdHTTP1.Get('https://2ip.ru');
  finally
    IdHTTP1.Free;
    
  end;
except
  on E: Exception do
    // Writeln(E.ClassName, ': ', E.Message);
    Showmessage ('Если ошибка то вывести сообщение!');
end;
end;

Подскажите любые идеи и решения. Уже сутки ломаю голову . Интересно для изучения.

[Rouse_]

Глупости подсказывать не буду - просто лень, поэтому просто намекну.
Как ты умудрился найти связь между HTTP и SMTP?

[Gonarh]

Ну как же, открываем рфц5321 и лёгким движением руки, превращаем хттп в смтп
IdHTTP1.Port:=25;

[Виталь]

Главное не нарваться на грабли когда один почтовый сервер работает только с TLS а второй только с SSL. И оба посылают на 3 буквы при попытке работать с 25 портом без шифрования. Уже несколько лет как.

Сообщения были разделены в тему "spam"