SendMail Class

Public Class SendEmail

Public Sub SendEmails(ByVal strFromAdd As String, ByVal strToAdd As String, ByVal strMessage As String, ByVal strSubject As String)
Dim sendMail As New MailMessage
sendMail.IsBodyHtml = True
sendMail.Subject = strSubject
sendMail.To.Add(strToAdd)
sendMail.From = New MailAddress(strFromAdd)
sendMail.Body = strMessage
Dim clent As New SmtpClient
clent.Host = "suratshopping.com"
'clent.Send(sendMail)
End Sub
End Class