. Net

2. send an email on the server side

 

Imports system. net
Imports system. net. Mail

Dim SMTP as smtpclient = new smtpclient ()
SMTP. Host = ""
SMTP. Credentials = new networkcredential ("","")
Dim mailfrom as string = getmailfrom ()
Dim mailto as string = getmailto ()
Dim subject as string = getmailsubject ()
Dim body as string = getmailbody ()

Dim message as mailmessage = new mailmessage ()
Message. From = new mailaddress (mailfrom, mailfrom, system. Text. encoding. utf8)
Message. CC. Add (tb_mail.text.tostring.trim)

Message. Priority = mailpriority. High
Message. isbodyhtml = true

Message. Subject = subject
Message. subjectencoding = system. Text. encoding. utf8
Message. Body = body
Message. bodyencoding = system. Text. encoding. utf8
SMTP. Send (Message)