Problem with email

I call this function to send an email.


Can anybody help me?








Public Function sendEmail(ByVal sender As String, ByVal subject As String, ByVal body As String) As Boolean


Dim objMsg As New MailMessage


Dim flag As Boolean


Try


objMsg.To = [email protected]


objMsg.From = "[email protected]"


objMsg.Priority = MailPriority.High


objMsg.Subject = "Testing...."


objMsg.Body = "testing...."


SmtpMail.SmtpServer = "mail.e-blackboard.com"


SmtpMail.Send(objMsg)


flag = True


Catch


flag = False


End Try


Return flag


End Function

 

Thanks. Now it is working