您的位置：程序门 -> vb -> 基础类

对象变量或 with 块变量没有设置（错误 91）

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

对象变量或 with 块变量没有设置（错误 91）[已结贴,结贴人:heatdragon]

发表于：2007-02-21 02:22:46 楼主

有这样一段源码,我在别人的程序中抄来的,在他的程序甚至连变量都没声明,却可以运行,我给加上了option explicit依然可以使用,不知道为什么,

我的却不行,总是报:对象变量或 with 块变量没有设置（错误 91）
即使把全部的option explicit都去掉还是不行

sdinf是一个发送邮件的控件,我的窗体上已经放置了这个控件,控件的那个文件是sdinf.ocx我也有,

我尝试了用set sdinf1=new sdinf
会告诉我无效使用new关键字,实在没折了,请大师帮忙
private sub command1_click（)

sdinf1.smtpserver = cmbsmtpserver.text '如 "smtp.163.com "
sdinf1.smtpport = txtsmtpport.text 'smtp服务器的默认端口为25,一般不需修改
sdinf1.subject = txtsubject.text '邮件的标题
sdinf1.from = txtfrom.text '发件人的信箱.如 "asanxxx@163.com "
sdinf1.to = txtto.text '收件人的信箱,如 "asanxxxx@21cn.com "
sdinf1.displayname = txtdisplayname.text '显示在信封上的名字,如 "asanscape "
sdinf1.needauth = chkneedauth.value 'smtp是否需要验证.现在的邮件服务器基本上都是esmtp,都需要验证
sdinf1.username = txtusername.text '你的信箱用户名如: "asanxxx "
sdinf1.password = txtpassword.text '你的邮箱密码用户名和密码这两个信息在esmtp上用到
sdinf1.body = txtbody.text '邮件内容.你可以从网上剪一段下来测试
sdinf1.issilence = false '该项为true时,发邮件过程中产生任何错误均不会有提示框出现.否则相反
sdinf1.append1 = txtappend1.text '第一个附件的完整路径.可在资源管理器中复制过来,或按浏览按钮选择
sdinf1.append2 = txtappend2.text '注意附件的体积不能太大,一般小于2m为宜.如几十k的文本,doc等最好了
sdinf1.append3 = txtappend3.text '注意附件的体积不能太大,一般小于2m为宜.如几十k的文本,doc等最好了
'sdinf1.append4 = "c:\hello.txt "

sdinf1.sendmail '开始发送
end sub

这就是那个人的源码,

我原样抄到自己程序里,就不行了~~

发表于：2007-02-21 08:42:281楼得分:0

先注册 sdinf.ocx 控件，然后引用到工程里面。
再从控件工具箱拖到窗口。

发表于：2007-02-21 13:58:462楼得分:0

我已经注册过控件了~~

发表于：2007-02-21 14:03:553楼得分:0

,控件名是sdinf1吗？

在哪句上报错

*****************************************************************************
欢迎使用csdn论坛专用阅读器 : csdn reader（附全部源代码)

最新版本：20070212

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

发表于：2007-02-21 15:41:204楼得分:0

第一句就报错
sdinf1.smtpserver = cmbsmtpserver.text '如 "smtp.163.com "

发表于：2007-02-21 16:33:165楼得分:20

cmbsmtpserver有这个控件么？

下一篇：关于string * 100 后取值的小问题
上一篇：求效率最高的算法！？

其他资讯