send mail smtp 2008 vb.net

Sample code on how to send mail using SMTP Server. Public Function mailcall(ByVal mail_id) Try SmtpServer.Credentials = New _ Net.NetworkCredential("[email protected]", "*****") SmtpServer.EnableSsl = True SmtpServer.Port = 587 SmtpServer.Host = "smtp.gmail.com" mail = New MailMessage() mail.From = New MailAddress("[email protected]") mail.To.Bcc.add(mail_id) mail.Subject = "Test Mail" mail