<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP CDO.Message Send Mail</title> </head> <body> <% Dim myMail,HTML,strMsg,strFileName Set myMail = Server.CreateObject("CDO.Message") '*** If Using Remote Server ***' 'Dim cdoConfig 'Set cdoConfig = myMail.Configuration 'With cdoConfig.Fields ' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" ' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' .Update 'End With strMsg = "" strMsg = strMsg &"<h1>My Message</h1><br>" strMsg = strMsg &"<table width='285' border='1'>" strMsg = strMsg &" <tr>" strMsg = strMsg &" <td><div align='center'><strong>My Message </strong></div></td>" strMsg = strMsg &" <td><div align='center'><font color='red'>My Message</font></div></td>" strMsg = strMsg &" <td><div align='center'><font size='2'>My Message</font></div></td>" strMsg = strMsg &" </tr>" strMsg = strMsg &" <tr>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" </tr>" strMsg = strMsg &" <tr>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" <td><div align='center'>My Message</div></td>" strMsg = strMsg &" </tr>" strMsg = strMsg &"</table>" strFileName = Server.MapPath("MyFiles/thaicreate.txt") myMail.AddAttachment strFileName myMail.From = "[email protected]" myMail.ReplyTo ="[email protected]" myMail.To = "[email protected]" myMail.Subject = "My Subject" myMail.HTMLBody = strMsg myMail.Send Response.write ("Mail Sending.") Set myMail = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 02
