Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'本节提供了远程SMTP服务器的配置信息。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '使用网络来发送邮件（通过网络的SMTP）。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.163.com" '您的SMTP服务器
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False '于连接中使用SSL（True或False）
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
' 如果您的发送邮件服务器需要SMTP验证，注释下面的线路和使用一个有效的电子邮件地址和密码。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '基本（clear-text）身份验证
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") =""
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="***" '您的电子邮件地址密码
ObjSendMail.Configuration.Fields.Update
'完成远程SMTP服务器的配置
ObjSendMail.To = "" '收件人地址
ObjSendMail.Subject = "最新订单" '标题
ObjSendMail.From = "" '请确保这与上述的sendusername是相同。
'我们正在发送文字邮件..简单地切换以下代码来发送HTML电子邮件
ObjSendMail.HTMLBody = "产品："&rsoks("s1")&"
金额："&rsoks("je")&"
姓名："&rsoks("s2")&"
地址："&rsoks("s3")&"
电话："&rsoks("s4")&"
备注："&rsoks("s5") '本文
ObjSendMail.TextBody = "" '电子邮件本文
ObjSendMail.Send
