Я не знаком с компонентом INDY SMTP. Я хочу отправить письмо с помощью INDY и Office 365. Вот хорошая тема, которая мне очень помогла: Что делают свойства безопасности и аутентификации компонента SMTP Indy? Но я не понял, как использовать SASL. Адрес Office365 - smtp.office365.com с портом 587 и TLS. Поэтому я добавил в свою форму SMTP и OpenSSL-IOHandler и настроил свойства. Но у меня не получилось, приложение просто зависает. Мне нужно знать, как использовать SASL с Office365.
Спасибо.
Office365 поддерживает только LOGIN SASL на порту 587 TLS.
Следующий код отлично работает у меня, когда я только что попробовал (все эти настройки также можно настроить во время разработки):
установка для свойства TIdSMTP.AuthType значения satDefault, который использует команду SMTP AUTH LOGIN:
var
idSMTP1: TIdSMTP;
begin
idSMTP1 := TIdSMTP.Create(nil);
try
idSMTP1.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(idSMTP1);
idSMTP1.UseTLS := utUseExplicitTLS;
TIdSSLIOHandlerSocketOpenSSL(idSMTP1.IOHandler).SSLOptions.Method := sslvSSLv3;
idSMTP1.Host := 'smtp.office365.com';
idSMTP1.Port := 587;
idSMTP1.AuthType := satDefault;
idSMTP1.Username := ...;
idSMTP1.Password := ...;
try
idSMTP1.Connect;
try
idSMTP1.Authenticate;
finally
idSMTP1.Disconnect;
end;
ShowMessage('OK');
except
on E: Exception do
begin
ShowMessage(Format('Failed!'#13'[%s] %s', [E.ClassName, E.Message]));
raise;
end;
end;
finally
idSMTP1.Free;
end;
установив для свойства TIdSMTP.AuthType значение satSASL и используя TIdSASLLogin, который использует ту же команду SMTP AUTH LOGIN:
var
idSMTP1: TIdSMTP;
idSASLLogin: TIdSASLLogin;
idUserPassProvider: TIdUserPassProvider;
begin
idSMTP1 := TIdSMTP.Create(nil);
try
idSMTP1.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(idSMTP1);
idSMTP1.UseTLS := utUseExplicitTLS;
TIdSSLIOHandlerSocketOpenSSL(idSMTP1.IOHandler).SSLOptions.Method := sslvSSLv3;
idSMTP1.Host := 'smtp.office365.com';
idSMTP1.Port := 587;
idSASLLogin := TIdSASLLogin.Create(idSMTP1);
idUserPassProvider := TIdUserPassProvider.Create(idSASLLogin);
idSASLLogin.UserPassProvider := idUserPassProvider;
idUserPassProvider.Username := ...;
idUserPassProvider.Password := ...;
idSMTP1.AuthType := satSASL;
idSMTP1.SASLMechanisms.Add.SASL := idSASLLogin;
try
idSMTP1.Connect;
try
idSMTP1.Authenticate;
finally
idSMTP1.Disconnect;
end;
ShowMessage('OK');
except
on E: Exception do
begin
ShowMessage(Format('Failed!'#13'[%s] %s', [E.ClassName, E.Message]));
raise;
end;
end;
finally
idSMTP1.Free;
end;
Обновление: Office365 больше не поддерживает SSL v3, теперь необходимо использовать TLS v1.x:
(idSMTP1.IOHandler).SSLOptions.Method := sslvTLSv1;
'Error connecting with SSL. EOF was observed that violates the protocol' Исключение возникает в строке idSMTP1.Authenticate;. Затем следует это исключение: EIdTLSClientTLSHandShakeFailed 'SSL negotiation failed.' Любая помощь будет принята с благодарностью.
- person jamesmstone; 24.03.2016
UseTLS должно быть установлено значение utUseExplicitTLS. Это заставляет Authenticate() отправить STARTTLS команду для шифрования соединения перед отправкой учетных данных для аутентификации (обычно для порта 587). Ошибка означает, что сервер принимает команду STARTTLS, но затем разрывает соединение сокета во время квитирования SSL / TLS до его завершения. Серверу, вероятно, не нравится, как вы настроили OpenSSL. Возможно, ему не нравятся выбранные версии протокола или настройки сертификата / проверки. Трудно сказать, не увидев настоящего рукопожатия.
- person Remy Lebeau; 24.03.2016
TIdSMTP. Таким образом, нет возможности диагностировать вашу проблему. - person Remy Lebeau schedule 19.07.2013TIdSMTPрешить за вас, какой SASL для использования на основе фактических возможностей Office365, он сообщает, когдаTIdSMTPподключается к нему (для работыTIdSMTP.UseEHLOдолжно быть установлено значение True). - person Remy Lebeau schedule 19.07.2013TIdSMTPиTLS=utUseExplicitTLSна порту 587, он подключается нормально, без зависаний, и единственный протокол SASL, о поддержке которого он сообщает, - этоLOGIN(LOGINнебезопасен, но использование TLS компенсирует это). При попытке проверить мои учетные данные происходит кратковременное зависание, но затем он размораживается и выдает ошибку аутентификации, как и ожидалось (поскольку у меня нет учетной записи Office365). - person Remy Lebeau schedule 19.07.2013LOGINSASL сTIdSMTP: 1) установитьTIdSMTP.AuthType=satDefaultи использоватьTIdSMTP.UsernameиTIdSMTP.Password, 2) установитьTIdSMTP.AuthType=satSASL, присоединитьTIdSASLLoginк коллекцииTIdSMTP.SASLMechanismsи прикрепитьTIdUserPassProviderкTIdSASLLogin. - person Remy Lebeau schedule 19.07.2013