Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.17.150.163] |
|
Сообщ.
#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; Подскажите любые идеи и решения. Уже сутки ломаю голову . Интересно для изучения. |
Сообщ.
#2
,
|
|
|
Глупости подсказывать не буду - просто лень, поэтому просто намекну.
Как ты умудрился найти связь между HTTP и SMTP? |
Сообщ.
#3
,
|
|
|
Ну как же, открываем рфц5321 и лёгким движением руки, превращаем хттп в смтп
IdHTTP1.Port:=25; |
Сообщ.
#4
,
|
|
|
Главное не нарваться на грабли когда один почтовый сервер работает только с TLS а второй только с SSL. И оба посылают на 3 буквы при попытке работать с 25 портом без шифрования. Уже несколько лет как.
Сообщения были разделены в тему "spam" |