Send mail using SMTP

following function can be added in a utility class and 
can be called from the application with parameters to send email.

SMTP Server IP could be stored in web.config or database, so that 
it can be changed easily.

Imports System.Web.Mail ' namespace is required for smtp mail

Public Shared Function SendMail(ByVal fromAddress As String, _
      ByVal toAddress As String, ByVal ccAddress As String, _
      ByVal bccAddress As String, ByVal msgSubject As String, _
      ByVal msgBody As String, ByVal smtpServer As String, _
      Optional ByVal msgPriority As Int32 = 0, _
      Optional ByVal msgFormat As Int32 = 0) As Boolean
 Dim mailMsg As MailMessage
 Try
  mailMsg = New MailMessage
  mailMsg.From = ConvertToString(fromAddress)
  mailMsg.To = ConvertToString(toAddress)
  If ConvertToString(ccAddress).Length > 0 Then mailMsg.Cc = ccAddress
  If ConvertToString(bccAddress).Length > 0 Then mailMsg.Bcc = bccAddress
  mailMsg.Subject = ConvertToString(msgSubject)
  mailMsg.Body = ConvertToString(msgBody)

  If msgPriority < priority =" MailPriority.Low"> 0 Then
    mailMsg.Priority = MailPriority.High
  Else
    mailMsg.Priority = MailPriority.Normal
  End If

  If msgFormat > 0 Then
    mailMsg.BodyFormat = MailFormat.Html
  Else
    mailMsg.BodyFormat = MailFormat.Text
  End If
  SmtpMail.SmtpServer = smtpServer
  SmtpMail.Send(mailMsg)
  Return True
 Catch
  Return False
 End Try
End Function