Я пытаюсь отправить письмо
Но я получаю эту ошибку.
Не удалось отправить сообщение на SMTP-сервер. Код ошибки транспорта: 0x80040217. Ответ сервера недоступен
любой, кто имеет какое-либо представление об этом, пожалуйста, помогите мне
Я пытаюсь отправить письмо
Но я получаю эту ошибку.
Не удалось отправить сообщение на 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 не позволил мне переопределить обработчик адаптера по умолчанию. Мне нужно было изменить обработчик адаптера по умолчанию, чтобы заставить его работать.
Теперь это работает!