Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'本節(jié)提供了遠(yuǎn)程SMTP服務(wù)器的配置信息。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '使用網(wǎng)絡(luò)來發(fā)送郵件（通過網(wǎng)絡(luò)的SMTP）。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.163.com" '您的SMTP服務(wù)器
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
' 如果您的發(fā)送郵件服務(wù)器需要SMTP驗(yàn)證，注釋下面的線路和使用一個(gè)有效的電子郵件地址和密碼。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '基本（clear-text）身份驗(yàn)證
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
'完成遠(yuǎn)程SMTP服務(wù)器的配置
ObjSendMail.To = "" '收件人地址
ObjSendMail.Subject = "最新訂單" '標(biāo)題
ObjSendMail.From = "" '請(qǐng)確保這與上述的sendusername是相同。
'我們正在發(fā)送文字郵件..簡(jiǎn)單地切換以下代碼來發(fā)送HTML電子郵件
ObjSendMail.HTMLBody = "產(chǎn)品："&rsoks("s1")&"<br>金額："&rsoks("je")&"<br>姓名："&rsoks("s2")&"<br>地址："&rsoks("s3")&"<br>電話："&rsoks("s4")&"<br>備注："&rsoks("s5") '本文
ObjSendMail.TextBody = "" '電子郵件本文
ObjSendMail.Send
