ASP.NET Отправка email по почте

Ниже указан пример отправки сообщений по почте. Используйте его в формах на сайте при регистрации пользователей, отправке заказов в интернет магазинах и других подобных случаях.

Imports System.Net.Mail
 
Public Class LessonMail
 
#Region "Функция отправки email из ASP.NET"
    ' Отправка почты из ASP.NET
    Public Function SendInfoEmail(Optional From As String = "Это моя фамилия",
                                  Optional Email As String = "email@mysite.ru",
                                  Optional subject As String = "Это тема письма",
                                  Optional body As String = "Это тело письма") As Boolean
        SendInfoEmail = False
        Try
            ' Создаем сообщение
            Dim m As New MailMessage(From, Email)
            m.Subject = subject
            m.IsBodyHtml = False
            m.Body = body
            m.Priority = MailPriority.High
 
            ' Копия письма
            Dim copy As MailAddress = New MailAddress("support@mysite.ru", "Письмо в техподдержку")
            m.CC.Add(copy)
 
            ' Запрос провайдеру. Нужно указать хост провайдера и параметры доступа к Email
            Dim client As New SmtpClient()
            client.Host = "smtp.host.ru"
            client.Port = 25
            client.UseDefaultCredentials = False
            client.Credentials = New Net.NetworkCredential("email@mysite.ru", "*Пароль*")
 
            ' Посылаем сообщение
            client.Send(m)
            SendInfoEmail = True
 
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Ошибка при отправлении")
            SendInfoEmail = False
        End Try
    End Function
 
#End Region
 
End Class