Код VB для автоматической отправки электронной почты в приложении ASP.NET

Question

У меня есть файл в witch, где есть смесь HTML, Javascript и Visual Basic, это фактически веб-сайт (при запуске и запуске).

В событии с щелчком я могу выполнить функцию VB (проверено), но теперь часть электронной почты.

Dim SmtpServer As New SmtpClient() 

SmtpServer.UseDefaultCredentials = true 
SmtpServer.Port = 25 
SmtpServer.Host = "12345.com" 

Dim mail As New MailMessage() 
mail.From = "si@csnavigateurs.qc.ca" 
mail.To.Add("pelletiera77@csnavigateurs.qc.ca") 
mail.Subject = "Email Sending" 
mail.Body = "Testing the 1 and 2" 
SmtpServer.Send(mail) 

Я думал, что это будет работать сам по себе, но нет, конечно, есть что-то конфиг из того, чтобы сделать эту работу. Он выдает ошибку сервера прямо на Dim SmtpServer As New SmtpClient(). Так что, наверное, мне нужно что-то включить?

Ошибка:

500 - Внутренняя ошибка сервера. Проблема с ресурсом, который вы ищете, и его невозможно отобразить.

Answer 1

Проблема здесь (от объекта не является строкой):

mail.From = "si@csnavigateurs.qc.ca" 

Я использовал это и работал:

mail.From = new System.Net.Mail.MailAddress(emailAddress, name);// Email-ID of Sender 

Если вам не нравится использовать имя отправителя вы можете сделать это:

mail.From = new System.Net.Mail.MailAddress(emailAddress); 

Answer 2

Попробуйте это:

Try 
    Dim SmtpServer As New System.Net.Mail.SmtpClient() 

    SmtpServer.UseDefaultCredentials = true 
    SmtpServer.Port = 25 
    SmtpServer.Host = "csnavigateurs-qc-ca.mail.protection.outlook.com" 

    Dim mail As New MailMessage() 
    mail.From = "si@csnavigateurs.qc.ca" 
    mail.To.Add("pelletiera77@csnavigateurs.qc.ca") 
    mail.Subject = "Email Sending" 
    mail.Body = "Testing the 1 and 2" 
    SmtpServer.Send(mail) 
    Response.Write("Success") 
Catch ex As Exception 
    Response.Write(ex.Message) 
End Try 

Это должно дать вам более четкое сообщение об ошибке, если он выходит из строя.