关于vb6自动发送邮件的问题

Public Sub Email_content(ByVal Regulation As String, ByVal Style As String, ByVal Usedate As Date)
Dim NameSpace As String
Dim Objemail As Object
NameSpace = "http://schemas.microsoft.com/cdo/configuration/ "

Set Objemail = CreateObject("CDO.Message")
With Objemail
.From = "**********@163.com"
.To = "*********@qq.com"
.Subject = "提醒邮件"
.Textbody = "Dear：" & vbCrLf & vbCrLf & Regulation & "的" & Style & "将在" & Usedate & "到期，请及时配置！"
With Objemail.configuration.Fields
.Item(NameSpace & "sendusing") = 2

.Item(NameSpace & "smtpserver") = "smtp.163.com"

.Item(NameSpace & "smtpserverport") = 25

.Item(NameSpace & "smtpauthenticate") = 1

.Item(NameSpace & "sendusername") = "*********@163.com"
.Item(NameSpace & "sendpassword") = "***********"
.Update
End With
.Send
End With

    我想在查询数据库，当有试剂快快过期时，通过调用上面的代码能自动发送个提醒的邮件。现在的问题是运行后，出现错误，“SendUsing”配置值无效。求各位大神帮忙！！

    不知道是代码的问题，还是其他设置的问题

CDO.Message 你的程序依赖这个库发邮件，但是这个库在你电脑上没有或者没有注册，所以用不了。
你要么找到这个库，要么用其它库替代。

缺少 CDO.Message 库，建一个库，试一试，应当就好了。

username 发信人即@之前内容，不是邮箱全部，删除@163. com即可发出