<%
'---------------------------------------------
'Function Name:NewMail
'傳入參數：
'1.MailTO：接收者的Email,Email格式為：接收者<接收者Email>
'2.MailFrom：寄送者的Email，格式同MailTo
'3.MailSubject：Email主旨
'4.MailBody：Email內容
'傳回值：True/False
'---------------------------------------------
function NewMail(MailTo,MailFrom,MailSubject,MailBody)
   Dim objCDO
   set objCDO = Server.CreateObject("CDONTS.NewMail")
   objCDO.From = MailFrom
   objCDO.To = MailTo
   objCDO.Subject = MailSubject   
   MailBody=replace(MailBody,"""","'")
   objCDO.Body = MailBody 
   objCDO.BodyFormat = 0   
   objCDO.MailFormat = 0    
   objCDO.Send()
   Set objCDO = Nothing  
   NewMail=true
   if err then NewMail=false
end function 
%>