用vb写发送邮件的代码，提示出错

[sycateye]

现在有一个需求是，给不同的邮箱发送不同的附件信息，在网上查了代码的编写，可运行时总是出错。
代码如下
Private Sub Command1_Click()
Dim sjr, fjmc As string '收件人邮箱，附件名称
Dim cm As New CDO.Message 'CDO.message是一个发送邮件的对象
sjr = "[e-mail]"
fjmc = "\111.pdf"
cm.From = "[e-mail]" '设置发信人的邮箱"
cm.To = sjr '设置收信人的邮箱
cm.Subject = "主题:邮件发送试验" '设定邮件的主题
cm.HtmlBody = "邮件发送试验" '使用html格式发送邮件
cm.AddAttachment App.Path & fjmc '发的附件名与地址
stUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址，固定的，不用改的
With cm.Configuration.Fields
.Item(stUl & "smtpserver") = "smtp.qq.com" 'SMTP服务器地址
.Item(stUl & "smtpserverport") = 25 'SMTP服务器端口
.Item(stUl & "sendusing") = 2 '发送端口
.Item(stUl & "smtpauthenticate") = 1 '需要提供用户名和密码，0是不提供 '
.Item(stUl & "sendusername") = "4645419" '发送方邮箱名称，不用输入@后面的东西
.Item(stUl & "sendpassword") = "19500308" '发送方邮箱密码
.Update
End With
cm.Send '最后当然是执行发送了
Set cm = Nothing
End Sub


‘’已以做了CDO的引用
提示的错误是
实时错误'-2147220975(8004021)':
下面是乱码，最后有a not available
调试指向的是cm.Send '最后当然是执行发送了

[笨狗先飞]

你打开这个网址看一下，这个邮件发送功能可能已经不可用了 stUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址，固定的，不用改的

[笨狗先飞]

你要不找找jmail组件发邮件的试试

[笨狗先飞]

http://lopechu6.blogspot.com/2012/12/vb6jmail.html

[亚纹]

现在用QQ邮箱发了

[sycateye]

不太明白呀，上面的程序是照猫画虎的，不太明白里面的语句

[赵4老师]

https://www.baidu.com/s?wd=实时错误%27-2147220975(80040211)