这个小程序是我弄的 在我这运行的时候老是 出现提示错误 请各位帮我看看是什么原因 谢谢了

[[it] 本帖最后由 菜鸟VB 于 2008-5-27 21:34 编辑 [/it]]

Private Sub Command1_Click()
Dim NameS As String
    Dim Email As Object
    Dim a As String, b As String
    a = Text1.Text
    b = Text2.Text
    NameS = "http://schemas.
   
    Set Email = CreateObject("CDO.Message")
    Email.From = "zsyccc@
    Email.To = "zsyccc@
    Email.Subject = "a"
    Email.Textbody = "b"
    Email.Configuration.Fields.Item(NameS & "sendusing") = 2
    Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.
    Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25
    Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
    Email.Configuration.Fields.Item(NameS & "sendusername") = "zsyccc"
    Email.Configuration.Fields.Item(NameS & "sendpassword") = "邮箱密码"
    Email.Configuration.Fields.Update
    Email.Send

End Sub

上面是代码 运行是出现这个错误

我想知道 哪里错了？？？