asp CDO.Message แนบ attach ไฟล์ไปพร้อมกับส่งเมล์

 <%
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing

'//////////////////////////////// send mail

	Dim myMail,HTML,strMsg,strFileName		
	Set myMail = Server.CreateObject("CDO.Message")
	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") = pMailSMTPServer 
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = pMailPort
		
		'*** Authentication ***'
		.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
		.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = pMailUser 
		.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = pMailPassword 
		.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
		.Update 
	End With 

	mName =qqqqq
	mTo = email

	myMail.Configuration = cdoConfig
	
	mFrom = "[email protected]"
	mSubJect = "Ant"

	strMsg = ""
	strMsg = strMsg &"<table width='100%' border='0' align='center'>"
	strMsg = strMsg &"  <tr>"
	strMsg = strMsg &"	<td colspan='2'>&nbsp;</td>"
	strMsg = strMsg &"  </tr>"
	strMsg = strMsg &"</table>"

myMail.BodyPart.Charset = "windows-874" 'Add
myMail.From = mFrom
myMail.To   = mTo
myMail.Subject = mSubject
myMail.HTMLBody = strMsg
	
	myMail.Send
	Set myMail = Nothing 


%>