Office中国论坛/Access中国论坛

标题: 引用COD发送邮件的代码，报错？ [打印本页]

作者: rcylbx 时间: 2009-2-19 16:41
标题: 引用COD发送邮件的代码，报错？
日前，正在学习用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 时间: 2009-2-19 20:18
自己顶一下

作者: rcylbx 时间: 2009-2-19 20:20
顶顶顶顶顶

作者: ACMAIN_CHM 时间: 2009-2-19 20:33
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 时间: 2009-2-19 22:40
网上找的
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 时间: 2009-2-25 16:25

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)