MAIL

--------------


Imports System.Net.Mail

sendmail(comments.text, body.text)
------------------


Private Sub sendmail(ByVal from As String, ByVal body As String)
Dim mailservername As String = "smtp.SASDED.com"
Dim message As MailMessage = New MailMessage(from, "", "Email from :: ASK US", body)
Dim mailclient As SmtpClient = New SmtpClient

mailclient.Host = mailservername
mailclient.Send(message)
message.Dispose()
End Sub