01.Dim myMail As New System.Net.Mail.MailMessage()
02.Dim Cred As New System.Net.NetworkCredential("services@gmail.com", "xxxxxx")
03.
04.myMail.To.Add("services@gmail.com")
05.myMail.Subject = rdbtnlist.SelectedItem.Text
06.myMail.From = New System.Net.Mail.MailAddress(emailtextbox.Text, nametextbox.Text)
07.
08.myMail.IsBodyHtml = True
09.
10.myMail.Body = "<strong>เรื่อง : </strong>" & rdbtnlist.SelectedItem.Text & "<br />"
11.myMail.Body &= "<strong>ชื่อ - สกุล : </strong>" & nametextbox.Text & "<br />"
12.myMail.Body &= "<strong>อีเมล์ : </strong>" & emailtextbox.Text & "<br />"
13.myMail.Body &= "<strong>ความคิดเห็น/ข้อเสนอแนะ : </strong>" & txtarea.Text & "<br />"
14.
15.Dim SmtpMail As New System.Net.Mail.SmtpClient("smtp.gmail.com")
16.SmtpMail.UseDefaultCredentials = False
17.SmtpMail.EnableSsl = True
18.SmtpMail.Credentials = Cred
19.SmtpMail.Send(myMail)
20.myMail = Nothing
Quote:
