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")&"<br>金额:"&rsoks("je")&"<br>姓名:"&rsoks("s2")&"<br>地址:"&rsoks("s3")&"<br>电话:"&rsoks("s4")&"<br>备注:"&rsoks("s5") '本文
ObjSendMail.TextBody = "" '电子邮件本文
ObjSendMail.Send