Public Sub mail(ByVal subject As String, ByVal message As String, ByRef errDesc As String)
        Try
            Dim smtp As New System.Net.Mail.SmtpClient()
            Dim mail As New System.Net.Mail.MailMessage()
            smtp.Credentials = New Net.NetworkCredential("", "")
            smtp.Port = 25
            smtp.Host = "ip"
            mail.From = New System.Net.Mail.MailAddress("abd@abd.com")
            mail.To.Add("lily@abd.com")
            mail.Subject = subject
            mail.Body = message
            smtp.Send(mail)
        Catch ex As Exception
            errDesc = ex.Message
        End Try
    End Sub