Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'本節(jié)提供了遠程SMTP服務器的配置信息。
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '使用網(wǎng)絡來發(fā)送郵件（通過網(wǎng)絡的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
' 如果您的發(fā)送郵件服務器需要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是相同。
'我們正在發(fā)送文字郵件..簡單地切換以下代碼來發(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
