64位下的CDO.Message使用

little-key · 发表于 2019-1-27 11:48

现在换了Windows 10 64位的系统，在做群发邮件的时候发现 CDO.Message 这个提示错误，有朋友遇到这样的问题，并成功解决的吗？可否分享一下方法，谢谢。

zpy2 · 发表于 2019-1-27 12:55

64位是不是控件不兼容，我没用cdo是用服务器中转的,Outlook应该也有64位的吧。
Sub Main()
Dim strText
With Server.CreateObject("MSXML2.XMLHTTP") 'CreateObject("WinHttp.WinHttpRequest.5.1")
      .Open "POST", "http://anyoupin.cn/bsbm/stu60/a82/jmail2.asp", False
      .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
' 发送者信息（可用变量方式赋值）
      strrecipient="recipient=" & encodeURI("zpy1_hotmail@hotmail.com")
      strSend="subject=" & encodeURI("铁路购票")
      strhtmlbody="htmlbody=" & encodeURI("<html><body>测试邮件<a href=""http://www.12306.cn"">www.12306.cn</a></body><html>")
      content= strrecipient & "&" & strSend & "&" & strhtmlbody

      .Send content
            strText = .responsetext
      Response.Write strText
End With
End Sub

Function encodeURI(strText)
With CreateObject("msscriptcontrol.scriptcontrol")
      .Language = "JavaScript"
      encodeURI = .Eval("encodeURIComponent('" & strText & "');")
End With
End Function

phsu · 发表于 2019-1-27 13:29

要先設定Microsoft CDO for Windows 2000 Library為引用項目。

phsu · 发表于 2019-1-27 13:33

不然就改為後期綁定：
Dim myMail As Object
Set myMail = CreateObject("CDO.Message")

little-key · 发表于 2019-1-27 13:54

phsu 发表于 2019-1-27 13:29
要先設定Microsoft CDO for Windows 2000 Library為引用項目。

引用和CreateObject方法都是提示错误

little-key · 发表于 2019-1-27 13:57

Sub fangyoujian()
Call sentmail("11111@163.com", "", "", "测试邮件", "发生发发", "C:\Users\Administrator\Desktop\++要发送的数据.xlsx")
End Sub

Function sentmail(sjr, csr, mcs, yjzt, yjnr, fjdz) '群发邮件
'sjr 收件人地址, csr 抄送人地址, mcs 密抄送人, yjzt 邮件主题, yjnr 邮件内容, fjdz 附件地址
'On Error Resume Next

Const Email_From = "11111@163.com" '发件人邮箱
Pwd = "fsafasfagewg" '发件人邮箱密码
'Const Email_To = "34253434@qq.com" '收件人邮箱

Set cm = CreateObject("CDO.Message") '创建对象
cm.From = Email_From '设置发信人的邮箱"
cm.To = sjr    '设置收信人的邮箱
cm.Cc = csr '抄送
cm.Bcc = mcs '密抄
cm.Subject = yjzt '设定邮件的主题
cm.TextBody = yjnr '邮件正文，使用文本格式发送邮件
'cm.HtmlBody = Cells(2, 4)  '使用html格式发送邮件
cm.AddAttachment fjdz '多附件则再添加同样一条代码即可
stUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址
With cm.Configuration.Fields
      .Item(stUl & "smtpserver") = "smtp.163.com"       'SMTP服务器地址
      .Item(stUl & "smtpserverport") = 25                'SMTP服务器端口
      .Item(stUl & "sendusing") = 2 '发送端口  '使用网络上的SMTP服务器而不是本地的SMTP服务器
      .Item(stUl & "smtpauthenticate") = 1    '需要提供用户名和密码，0是不提供  '服务器认证方式       '
      .Item(stUl & "sendusername") = "liangcai001" '发送方邮箱名称
      .Item(stUl & "sendpassword") = Pwd                '发送方邮箱密码
      .Item(stUl & "smtpconnectiontimeout") = 60 '连接服务器的超时时间
      '.Item(stUl & "smtpusessl") = True '是否使用SSL连接为Netscape所研发，用以保障在Internet上数据传输之安全，利用数据加密(Encryption)技术，可确保数据在网络上之传输过程中不会被截取及窃听
      .Update '更新设置
End With
cm.Send '最后当然是执行发送了
Set cm = Nothing          '发送成功后即时释放对象
'MsgBox "发送完毕"
End Function

little-key · 发表于 2019-1-27 13:57

zpy2 发表于 2019-1-27 12:55
64位是不是控件不兼容，我没用cdo是用服务器中转的,Outlook应该也有64位的吧。
Sub Main()
Dim strTe ...

我怀疑的也是这个

little-key · 发表于 2019-1-27 13:58

调整了N种办法，都是提示
Set cm = CreateObject("CDO.Message") '创建对象
这句错误

phsu · 发表于 2019-1-27 14:00

我用的是Windows 7 64位的系统，沒有這個問題。剛才也試著寄了一封信，都OK。若可以的話，將你的代碼傳上來看看。

little-key · 发表于 2019-1-27 14:01

6楼是我写的代码，隐藏了一些敏感的信息
之前我就是用这个代码去群发邮件的，但是现在换了Windows 10 64位后就总是提示ado有问题

		自动登录	找回密码
密码			免费注册

[求助] 64位下的CDO.Message使用

最新热点 /1