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”配置值无效。求各位大神帮忙!!
不知道是代码的问题,还是其他设置的问题