如何编写asp发送发送邮件到任意一个邮箱

以前编写过通过表单提交通过mail组件发送到自己邮箱的asp，但是却不能发送到其他人的邮箱，请指教：）
---------------------------------------------------------------

一个具体例子：

 1   
 2strEmail=Trim(Request.Form("email")) '获取提交的邮件地址   
 3''''''''''发送电子邮件''''''''''''''''   
 4dim objCDOMail   
 5Set objCDOMail = Server.CreateObject("CDONTS.NewMail")   
 6objCDOMail.From ="[email protected]"   
 7objCDOMail.To =strEmail   
 8objCDOMail.Subject ="邮件发送测试"   
 9body="这里可写HTML代码！" & chr(10)   
10objCDOMail.Body =body   
11objCDOMail.BodyFormat=1 '设置为HTML格式   
12objCDOMail.Send   
13Set objCDOMail = Nothing