J'essaye d'envoyer un email
Mais je reçois cette erreur.
Le message n'a pas pu être envoyé au serveur SMTP. Le code d'erreur de transport était 0x80040217. La réponse du serveur n'était pas disponible
toute personne ayant une idée à ce sujet s'il vous plaît aidez-moi
A découvert que vous pouvez également obtenir cette erreur lorsque les paramètres de sécurité de Gmail ne permettent pas l'envoi de messages à partir de l'adresse que vous souhaitez utiliser. Je devais activer l'accès à des applications moins sécurisées pour mon compte en question en:
Cela est dû à un nom d'utilisateur ou à un mot de passe incorrect pour le serveur SMTP et Signifie généralement que le serveur a désactivé votre compte pour l'envoi de spam.
Merci pour vos réponses, cela a fonctionné! c’est parce que cette option n’était pas activée: https://www.google.com/settings/security/lesssecureapps Si quelqu'un en a besoin, il s'agit du code VBScript I ' m en utilisant dans 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
Avait le même problème en utilisant BizTalk, où le gestionnaire par défaut de l'adaptateur a spécifié d'utiliser l'authentification NTLM (par défaut). Même si j'ai spécifié de remplacer le gestionnaire sur les propriétés du port d'envoi, BizTalk ne m'a pas autorisé à remplacer le gestionnaire par défaut de l'adaptateur. Je devais changer le gestionnaire par défaut de l'adaptateur afin de le faire fonctionner.
Maintenant ça marche!