01.<%
02.<html>
03.
04.<head >
05.
06.
07.<title>XXXX</title>
08.
09.<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
10.
11.
12.<style type="text/css">
13.<!--
14.body,td,th {
15. font-family: Arial, Helvetica, sans-serif;
16.}
17.a {
18. font-family: Arial, Helvetica, sans-serif;
19.}
20.h1,h2,h3,h4,h5,h6 {
21. font-family: Arial, Helvetica, sans-serif;
22.}
23.-->
24.</style></head>
25.<body>
26.
27.
28.<%
29. Dim myMail,HTML,strMsg
30.
31. Set myMail = Server.CreateObject("CDO.Message")
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43. strMsg = ""
44. strMsg = strMsg &"<h1>My Message</h1><br>"
45. strMsg = strMsg &"<table width='285' border='1'>"
46. strMsg = strMsg &" <tr>"
47. strMsg = strMsg &" <td><div align='center'><strong>My Message </strong></div></td>"
48. strMsg = strMsg &" <td><div align='center'><font color='red'>My Message</font></div></td>"
49. strMsg = strMsg &" <td><div align='center'><font size='2'>My Message</font></div></td>"
50. strMsg = strMsg &" </tr>"
51. strMsg = strMsg &" <tr>"
52. strMsg = strMsg &" <td><div align='center'>My ข้อความ</div></td>"
53. strMsg = strMsg &" <td><div align='center'>My ข้อความ</div></td>"
54. strMsg = strMsg &" <td><div align='center'>My ข้อความ</div></td>"
55. strMsg = strMsg &" </tr>"
56. strMsg = strMsg &" <tr>"
57. strMsg = strMsg &" <td><div align='center'>My ข้อความ</div></td>"
58. strMsg = strMsg &" <td><div align='center'>My ข้อความ</div></td>"
59. strMsg = strMsg &" <td><div align='center'>My ข้อความ</div></td>"
60. strMsg = strMsg &" </tr>"
61. strMsg = strMsg &"</table>"
62.
63.
64.
65. myMail.From = "mail.xxxx.com"
66. myMail.To = "XXX@xxx.com"
67. myMail.Subject = "My Subject"
68. myMail.HTMLBody = strMsg
69.
70. myMail.Send
71. Response.write ("Mail Sending.")
72. Set myMail = Nothing
73.%>
74.</body>
75.</html>
76.
77.อยากทราบว่ามันเป็นที่ อะไรครับ
78.
79.%>
