Как подключить прокси при отправке сообщения на почту?.
Вот код отправки сообщения:
procedure TMainForm.ButtonSendClick(Sender: TObject);
var
SMTP : TIdSMTP;
msg : TIdMessage;
SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
begin
// Вот тут подключаю прокси //////////
IdSMTP1.IOHandler := IdIOHandlerStack1;
IdIOHandlerStack1.TransparentProxy := IdConnectThroughHttpProxy1;
IdConnectThroughHttpProxy1.Host := '14.198.177.46';
IdConnectThroughHttpProxy1.Port := StrToInt('8080');
// Вот тут подключаю прокси //////////
SMTP := TIdSMTP.Create(Application);
SMTP.Host := 'smtp.yandex.ru';
SMTP.Port := 465;
SMTP.AuthType := satDefault;
SMTP.Username := '[email protected]';{Должно совпадать с 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 := '[email protected]'; {<<Должно совпадать с SMTP.UserName}
msg.From.Name := 'YourName';
msg.Recipients.EMailAddresses :='[email protected]';
SMTP.Connect;
if SMTP.Connected then
begin
SMTP.Send(msg);
ShowMessage ('Сообщение отправлено');
end else
ShowMessage ('Не удалось отправить сообщение');
SMTP.Disconnect();
SMTP.Free;
msg.Free;
end;
Рассылка то идет но не через Proxy. Вот в этом и проблема.
SMTP
, а прокси устанавливает для объектаIdSMTP1
и удивляетесь, почему же не работает...IdSMTP1
вам тут вообще не нужен. Вы можете задать свойствоTransparentProxy
уSSLOpen
. И вы, кстати, забываете удалитьSSLOpen
по окончанию работы.