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

Question

有这样一段源码,我在别人的程序中抄来的,在他的程序甚至连变量都没声明,却可以运行,我给加上了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      '发件人的信箱.如 "[email protected]"
    Sdinf1.To = txtTo.Text     '收件人的信箱,如"[email protected]"
    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这就是那个人的源码,我原样抄到自己程序里,就不行了~~

Answer 1

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

Answer 2

,控件名是Sdinf1吗？在哪句上报错
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 最新版本：20070212http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

Answer 3

第一句就报错
    Sdinf1.SMTPServer = cmbSMTPServer.Text    '如 "smtp.163.com"