Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.07.2020, 04:14   #1
Mariush
Новичок
Джуниор
 
Регистрация: 06.05.2020
Сообщений: 1
По умолчанию Как подключить прокси при отправки сообщения на почту

Код:
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;
Подскажите любые идеи и решения. Уже сутки ломаю голову . Интересно для изучения.
Mariush вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите сделать форму для отправки на почту Last_light HTML и CSS 1 25.04.2018 08:01
отправки файла на эл.почту Koneru C/C++ Сетевое программирование 12 16.08.2016 17:21
Отправка сообщения на почту zdus2757 Общие вопросы Delphi 1 07.01.2016 13:40
Ошибка 5.5.4 при отправке сообщения на почту vovaza29 C# (си шарп) 3 15.10.2015 17:32
как подключить почту к странице сайта jahant JavaScript, Ajax 2 03.06.2009 20:19