01.<html>
02.<head>
03.<title>ThaiCreate.Com Tutorial</title>
04.</head>
05.<body>
06.<%
07. Dim myMail,HTML,strMsg
08.
09. Set myMail = Server.CreateObject("CDONTS.NewMail")
10.
11. strMsg = ""
12. strMsg = strMsg &"<h1>My Message</h1><br>"
13. strMsg = strMsg &"<table width='285' border='1'>"
14. strMsg = strMsg &" <tr>"
15. strMsg = strMsg &" <td><div align='center'><strong>My Message </strong></div></td>"
16. strMsg = strMsg &" <td><div align='center'><font color='red'>My Message</font></div></td>"
17. strMsg = strMsg &" <td><div align='center'><font size='2'>My Message</font></div></td>"
18. strMsg = strMsg &" </tr>"
19. strMsg = strMsg &" <tr>"
20. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
21. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
22. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
23. strMsg = strMsg &" </tr>"
24. strMsg = strMsg &" <tr>"
25. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
26. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
27. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
28. strMsg = strMsg &" </tr>"
29. strMsg = strMsg &"</table>"
30.
31. myMail.From = "Webmaster <webmaster@thaicreate.com>"
32. myMail.Value("Reply-To") = "reply@thaicreate.com"
33. myMail.To = "member@thaicreate.com"
34. myMail.Subject = "My Subject"
35. myMail.MailFormat = 0
36. myMail.Importance = 2
37. myMail.BodyFormat = 0
38. myMail.Body = strMsg
39.
40. myMail.Send
41.
42. Response.write ("Mail Sending.")
43. Set myMail = Nothing
44.%>
45.</body>
46.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
