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