2009-12-15 3 views

ответ

2

Send email in vb.net

Или

Imports System.Net.Mail 
Public Class Form1 
    Private Sub Button1_Click(ByVal sender As System.Object, _ 
     ByVal e As System.EventArgs) Handles Button1.Click 
     Try 
      Dim SmtpServer As New SmtpClient() 
      Dim mail As New MailMessage() 
      SmtpServer.Credentials = New _ 
       Net.NetworkCredential("[email protected]", "password") 
      SmtpServer.Port = 587 
      SmtpServer.Host = "smtp.gmail.com" 
      mail.From = New MailAddress("[email protected]") 
      mail.To.Add("TOADDRESS") 
      mail.Subject = "Test Mail" 
      mail.Body = "This is for testing SMTP mail from GMAIL" 
      SmtpServer.Send(mail) 
      MsgBox("mail send") 
     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
    End Sub 
End Class 
+1

выглядит правильно, хотя я хотел бы предложить 'Использование почты в качестве новой MailMessage()' так MailMessage реализует IDisposable – MarkJ

+0

Кроме того, код создает новый MailMessage дважды. –

+1

это типичный стиль программирования в стиле «темное» программирование - удары по исключениям, пока он «не работает». обычно вы увидите, что каждый метод начинается с try и end с улавливанием базового исключения. у нас был один разработчик, который бы это сделал. catch ex в качестве исключения ... response.write (" ") в каждом методе. пользователям понравилось видеть их в качестве дополнительного бонуса, если в сообщении об исключении была единственная цитата, будет ошибка js, и страница не будет выполнена правильно – Shawn

Смежные вопросы