IF strBody <> "" Then
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "yourname@wenxuecity.com"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Importance = 1
objCDOMail.AttachFile strLogFileName
Set objCDOMail = Nothing
End IF