01.<%@ Import Namespace="System.Web.Mail"%>
02.<%@ Page Language="VB" %>
03.<script runat="server">
04. Sub Page_Load(sender As Object, e As EventArgs)
05. Dim myMail As New MailMessage()
06. Dim strMsg As String
07.
08. myMail.To = "member@thaicreate.com"
09. myMail.From = "webmaster@thaicreate.com"
10. myMail.Subject = "My Subject"
11.
12.
13. strMsg = ""
14. strMsg = strMsg &"<h1>My Message</h1><br>"
15. strMsg = strMsg &"<table width='285' border='1'>"
16. strMsg = strMsg &" <tr>"
17. strMsg = strMsg &" <td><div align='center'><strong>My Message </strong></div></td>"
18. strMsg = strMsg &" <td><div align='center'><font color='red'>My Message</font></div></td>"
19. strMsg = strMsg &" <td><div align='center'><font size='2'>My Message</font></div></td>"
20. strMsg = strMsg &" </tr>"
21. strMsg = strMsg &" <tr>"
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 &" <td><div align='center'>My Message</div></td>"
25. strMsg = strMsg &" </tr>"
26. strMsg = strMsg &" <tr>"
27. strMsg = strMsg &" <td><div align='center'>"& Date.Now() &"</div></td>"
28. strMsg = strMsg &" <td><div align='center'>"& Date.Now() &"</div></td>"
29. strMsg = strMsg &" <td><div align='center'>"& Date.Now() &"</div></td>"
30. strMsg = strMsg &" </tr>"
31. strMsg = strMsg &"</table>"
32.
33. myMail.BodyFormat = MailFormat.HTML
34. myMail.Body = strMsg
35.
36. SmtpMail.Send(myMail)
37.
38. myMail = Nothing
39.
40. Me.lblText.Text = "Mail Sending."
41. End Sub
42.
43.</script>
44.<html>
45.<head>
46. <title>ThaiCreate.Com ASP.NET - Send Mail</title>
47.</head>
48.<body>
49. <form id="form1" runat="server">
50. <asp:Label id="lblText" runat="server"></asp:Label>
51. </form>
52.</body>
53.</html>
