การรับข้อผิดพลาดรหัสข้อผิดพลาดในการขนส่งคือ 0x80040217 ขณะส่งอีเมลใน Asp.Net

ค้นพบว่าคุณยังได้รับข้อผิดพลาดนี้เมื่อการตั้งค่าความปลอดภัยของ Gmail ไม่อนุญาตให้ส่งข้อความจากที่อยู่ที่คุณต้องการใช้ ฉันต้องเปิดใช้งานการเข้าถึงแอปที่มีความปลอดภัยน้อยกว่าสำหรับบัญชีของฉันโดย:

1. เข้าสู่ระบบที่อยู่ที่คุณต้องการใช้สำหรับส่งอีเมลจาก Excel
2. ไปที่หน้า https://www.google.com/settings/security/lesssecureapps
3. คลิกเปิดใช้งานแอปที่มีความปลอดภัยน้อยกว่า
4. คลิกเสร็จสิ้น

มีสาเหตุมาจากชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้องสำหรับเซิร์ฟเวอร์ SMTP และมักจะหมายความว่าเซิร์ฟเวอร์ได้ปิดการใช้งานบัญชีของคุณเนื่องจากการส่งสแปม ฉันคุณได้ส่งอีเมลไปแล้ว 1,500 ฉบับ

ขอบคุณสำหรับการตอบกลับ มันได้ผล! เป็นเพราะฉันไม่ได้เปิดใช้งานตัวเลือกนี้: 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 ไม่อนุญาตให้ฉันแทนที่ตัวจัดการเริ่มต้นของอะแดปเตอร์ ฉันจำเป็นต้องเปลี่ยนตัวจัดการเริ่มต้นของอะแดปเตอร์เพื่อให้มันทำงานได้

ตอนนี้มันใช้งานได้แล้ว!