01.Sub Page_Load(sender As Object, e As EventArgs)
02. Dim myMail As New MailMessage()
03.
04. myMail.To = "member@thaicreate.com"
05. myMail.From = "webmaster@thaicreate.com"
06. myMail.Subject = "My Subject"
07.
08. myMail.BodyFormat = MailFormat.Text
09. myMail.Body = "My Body & Description"
10.
11.
12. Dim strSMTP,cdoSendUsingPort,cdoBasic,UserName,Password As String
13.
14. strSMTP = "localhost"
15. cdoSendUsingPort = 2
16. cdoBasic = 1
17. UserName = "weerachai"
18. Password = "password"
19.
26.
27. SmtpMail.SmtpServer = strSMTP
28.
29. SmtpMail.Send(myMail)
30.
31. myMail = Nothing
32.
33. Me.lblText.Text = "Mail Sending."
34.End Sub
