email in .net

Imports System.Web.Mail

#Region "Email"
Public Function SendEmail(ByVal mpSENDTO As String, Optional ByVal mpCC As String = "", Optional ByVal mpBCC As String = "", Optional ByVal mpMESSAGEFROM As String = "", Optional ByVal mpSUBJECT As String = "", Optional ByVal mpBODY As String = "", Optional ByVal mpATTACHMENT As String = "") As Boolean
Dim mlMESSAGE As New MailMessage()
Try
mlMESSAGE.To = mpSENDTO
mlMESSAGE.Cc = mpCC
mlMESSAGE.Bcc = mpBCC
mlMESSAGE.Subject = mpSUBJECT
mlMESSAGE.Body = mpBODY
mlMESSAGE.From = mpMESSAGEFROM
mlMESSAGE.BodyFormat = MailFormat.Html
SmtpMail.Send(mlMESSAGE)
Return True
Catch ex As Exception
Return False
End Try
End Function
#End Region