Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim myMail As New MailMessage() myMail.To = "[email protected] " myMail.From = "<" & Me.TextBox1.Text & ">" & Me.TextBox3.Text myMail.Subject = Me.TextBox4.Text myMail.Priority = MailPriority.High myMail.BodyFormat = MailFormat.Html myMail.Body = Replace(Me.TextBox2.Text, vbCrLf, "<br>") SmtpMail.Send(myMail) myMail = Nothing Me.lblStatus.Text = "Mail Sending." End Sub
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง