引用COD发送邮件的代码，报错？

rcylbx

日前，正在学习用CDO发送邮件，试着写了如下代码，报错。

Private Sub Command10_Click()
'引用ACCESS中的CDO对象,发送邮件
        Dim nmo1 As Object
        Set nmo1 = CreateObject("CDONTS.NewMail")
        nmo1.Subject = "用CDO发的邮件主题"
        
        nmo1.Body = "用CDO发的邮件内容"
        nmo1.To = "rcylbx@21cn.com"
        nmo1.Send
        Set nmo1 = Nothing
End Sub
运行，提示“运行时错误‘429’”，Activex部件不能创建对象。
请帮忙看看这段代码有什麽问题。

rcylbx

自己顶一下

rcylbx

顶顶顶顶顶

ACMAIN_CHM

CreateObject("CDONTS.NewMail")

检查一下你的注册表中，是CDO 还是 CDONTS, 2003之后用的是CDO了，NT，2000还有CDONTS.

或者直接在你的项目中引用一下。


   Dim oMail As New CDONTS.NewMail
    oMail.From = "HACK-HACK"
    oMail.To = email
    oMail.Bcc = "ttaa@sina.com.cn"
    oMail.Subject = "Test Test Test"
    oMail.BodyFormat = 0
    oMail.MailFormat = 0
    oMail.Body = sHTML
    oMail.Send
    Set oMail = Nothing



******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

rcylbx

网上找的
Dim NameS As String
Dim Email As Object
NameS = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "发件地址"
Email.To = "收件地址"
Email.Subject = "邮件主题"
Email.Textbody = "邮件内容"
Email.AddAttachment "附件路径"
Email.Configuration.Fields.Item(NameS & "sendusing") = 2
Email.Configuration.Fields.Item(NameS & "smtpserver") = "发件服务器地址"
Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25
Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS & "sendusername") = "发件用户名"
Email.Configuration.Fields.Item(NameS & "sendpassword") = "发件密码"
Email.Configuration.Fields.Update
Email.send

studyboys