菜鸟VB 发表于 2008-5-27 20:59

帮忙测试

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

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

三断笛 发表于 2008-5-27 21:07

代码都舍不得拿上来 谁知道错在哪里了啊

multiple1902 发表于 2008-5-27 21:29

楼主没腾讯牛，腾讯的QQ拼音输入法只给会员测试……

菜鸟VB 发表于 2008-5-27 21:32

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.microsoft.com/cdo/configuration/"
   
    Set Email = CreateObject("CDO.Message")
    Email.From = "zsyccc@126.com"
    Email.To = "zsyccc@126.com"
    Email.Subject = "a"
    Email.Textbody = "b"
    Email.Configuration.Fields.Item(NameS & "sendusing") = 2
    Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.126.com"
    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

菜鸟VB 发表于 2008-5-27 21:33

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

multiple1902 发表于 2008-5-27 21:44

那难道别人那里就运行正确了么

菜鸟VB 发表于 2008-5-27 21:45

我想知道 哪里错了？？？

页: [1]

编程论坛