01.
<%
02.
Dim
myMail,HTML,strMsg
03.
04.
Set
myMail = Server.CreateObject(
"CDO.Message"
)
05.
06.
07.
Dim
cdoConfig
08.
Set
cdoConfig = myMail.Configuration
09.
With
cdoConfig.Fields
13.
.Update
14.
End
With
15.
16.
myMail.Configuration = cdoConfig
17.
18.
strMsg =
""
19.
strMsg = strMsg &
"<h1>My Message</h1><br>"
20.
strMsg = strMsg &
"<table width='285' border='1'>"
21.
strMsg = strMsg &
" <tr>"
22.
strMsg = strMsg &
" <td><div align='center'><strong>My Message </strong></div></td>"
23.
strMsg = strMsg &
" <td><div align='center'><font color='red'>My Message</font></div></td>"
24.
strMsg = strMsg &
" <td><div align='center'><font size='2'>My Message</font></div></td>"
25.
strMsg = strMsg &
" </tr>"
26.
strMsg = strMsg &
" <tr>"
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 &
" <td><div align='center'>My Message</div></td>"
30.
strMsg = strMsg &
" </tr>"
31.
strMsg = strMsg &
" <tr>"
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 &
" <td><div align='center'>My Message</div></td>"
35.
strMsg = strMsg &
" </tr>"
36.
strMsg = strMsg &
"</table>"
37.
38.
39.
myMail.From =
"Webmaster<webmaster@thaicreate.com>"
40.
myMail.ReplyTo =
"thaicreate@hotmail.com"
41.
myMail.
To
=
"member@thaicreate.com"
42.
myMail.Cc =
"Mr.Surachai Sirisart<member@thaicreate.com>"
43.
myMail.Bcc =
"webmaster@thaicreate.com"
44.
myMail.Subject =
"My Subject"
45.
myMail.HTMLBody = strMsg
46.
47.
myMail.Send
48.
Response.write (
"Mail Sending."
)
49.
Set
myMail =
Nothing
50.
%>