关于在VB中登记后发送邮件的代码

关于在VB中注册后发送邮件的代码
代码如下
Dim NewMailObj
  'recipName = Trim(Session("FamilyName")) & "," & Trim(Session("GivenName"))
  NewMailObj = CreateObject("CDO.Message")
  NewMailObj.Subject = "Active Your Account for ekitchens"
  NewMailObj.From = "service@infoserveusa.com"
  NewMailObj.To = "sharppaw@163.com"
  NewMailObj.HtmlBody = "This is a verification email for your ekitchens account.<br>If you haven't applied for this account, please disregard this email.<br><a href='http://ActionUser.asp?' target=_blank>Active my account now.</a>"
  NewMailObj.Send()
  NewMailObj = Nothing
这段代码我在控制台中通过测试了,为什么在网站中通过不了呢?在线等解答啊

------解决方案--------------------
我是初学者，不过我有发邮件的例子不知道能不能帮上你。。。