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