Я пытаюсь отправить письмо
Но я получаю эту ошибку.
Не удалось отправить сообщение на SMTP-сервер. Код ошибки транспорта был 0x80040217. Ответ сервера недоступен
если у вас есть идеи, пожалуйста, помогите мне
Обнаружено, что вы можете также получить эту ошибку, когда настройки безопасности Gmail не позволяют отправлять сообщения с адреса, который вы намереваетесь использовать.Мне пришлось разрешить доступ к менее безопасным приложениям для моей учетной записи по адресу:
Это вызвано неправильным именем пользователя или паролем для SMTP-сервера и обычно означает, что сервер отключил вашу учетную запись для спама я вы отправили 1500 писем
Спасибо за ваши ответы, это сработало!это потому, что у меня не была включена эта опция: https://www.google.com/settings/security/lesssecureapps Если кому-то это нужно, это код VBScript, который я использую в Qlikview:
SUB SendMail Dim objEmail Const cdoSendUsingPort = 2 ' Send the message using SMTP Const cdoBasicAuth = 1 ' Clear-text authentication Const cdoTimeout = 60 ' Timeout for SMTP in seconds mailServer = "smtp.gmail.com" SMTPport = 465 '25 'SMTPport = 465 mailusername = "marcos.esgu**@gmail.com" mailpassword = "Ki***" mailto = "marcos.esgu**@*****" mailSubject = "my test-deleteme" mailBody = "This is the email body" Set objEmail = CreateObject("CDO.Message") Set objConf = objEmail.Configuration Set objFlds = objConf.Fields With objFlds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPport .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = cdoTimeout .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasicAuth .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailusername .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailpassword .Update End With objEmail.To = mailto objEmail.From = mailusername objEmail.Subject = mailSubject objEmail.TextBody = mailBody 'objEmail.AddAttachment "C:\report.pdf" objEmail.Send Set objFlds = Nothing Set objConf = Nothing Set objEmail = Nothing END SUB
Была такая же проблема при использовании BizTalk, где обработчик адаптера по умолчанию указывал использовать NTLM-аутентификацию (по умолчанию).Несмотря на то, что я указал переопределение обработчика в свойствах порта отправки, BizTalk не позволил мне переопределить обработчик по умолчанию адаптера.Мне нужно было изменить обработчик адаптера по умолчанию, чтобы он работал.
Теперь он работает!