從我的VB.NET中的窗口形式發送電子郵件

Question

enter image description here，當我從我的VB.NET中的窗口形式不是錯誤發送電子郵件出現 我覺得有一些認證的問題.. 企業郵箱Unavailable.The服務器響應爲：5.7.3 已請求的操作已中止; 用戶未通過身份驗證

Answer 1

試試這個代碼：

 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

     Dim Correo As New System.Net.Mail.MailMessage 
     Dim SMTP As New System.Net.Mail.SmtpClient 

     Correo.From = "VALID EMAIL FROM" 

     Correo.To.Add("VALID EMAIL TO) 

     Correo.Subject = "Subject text" 

     Correo.Priority = System.Net.Mail.MailPriority.Normal 
     Correo.IsBodyHtml = True 
     Correo.Body = "BODY OF EMAIL" 

     Correo.Attachments.Add("DIRECTORY FROM FILE TO ATTACH") 

     SMTP.Host = "VALID SMTP" 
     SMTP.Port = "VALID PORT" 

     SMTP.EnableSsl = "SSL TRUE OR FALSE" 
     SMTP.UseDefaultCredentials = False 
     SMTP.Credentials = New System.Net.NetworkCredential("user name", "password") 
     SMTP.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network 

     Dim Token As Object = Correo 

     AddHandler SMTP.SendCompleted, AddressOf SmtpClient_OnCompleted 

     SMTP.SendAsync(Correo, Token) 

     ' Wait response from SmtpClient_OnCompleted 

    End Sub 

    Public Sub SmtpClient_OnCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) 

    End Sub