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("CDO.Message")
10.
11. Dim cdoConfig
12. Set cdoConfig = myMail.Configuration
13. With cdoConfig.Fields
14. .Item("urn:schemas:mailheader:X-Priority") = 2
15. .Item("urn:schemas:mailheader:X-MSMail-Priority") = 2
16. .Item("urn:schemas:httpmail:importance") = "High"
17. .Update
18. End With
19.
20. myMail.Configuration = cdoConfig
21.
22. strMsg = ""
23. strMsg = strMsg &"<h1>My Message</h1><br>"
24. strMsg = strMsg &"<table width='285' border='1'>"
25. strMsg = strMsg &" <tr>"
26. strMsg = strMsg &" <td><div align='center'><strong>My Message </strong></div></td>"
27. strMsg = strMsg &" <td><div align='center'><font color='red'>My Message</font></div></td>"
28. strMsg = strMsg &" <td><div align='center'><font size='2'>My Message</font></div></td>"
29. strMsg = strMsg &" </tr>"
30. strMsg = strMsg &" <tr>"
31. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
32. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
33. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
34. strMsg = strMsg &" </tr>"
35. strMsg = strMsg &" <tr>"
36. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
37. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
38. strMsg = strMsg &" <td><div align='center'>My Message</div></td>"
39. strMsg = strMsg &" </tr>"
40. strMsg = strMsg &"</table>"
41.
42.
43. myMail.From = "webmaster@thaicreate.com"
44. myMail.To = "member@thaicreate.com"
45. myMail.Subject = "My Subject"
46. myMail.HTMLBody = strMsg
47.
48. myMail.Send
49. Response.write ("Mail Sending.")
50. Set myMail = Nothing
51.%>
52.</body>
53.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
