send email

This summary is not available. Please click here to view the post.

  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