icrosoft.com/cdo/configuration/languagecode") = "0x0804"
   objConfig.Fields.Update()
   Set objMail.Configuration = objConfig
   objMail.Subject = "network error"
   objMail.From = chr(34) & "networkerror" & chr(34) & "networkerror@beiliang.com"
   objMail.To = "networkerror@aaa.com"  '接受者邮箱
   objMail.HTMLBody = "Now pinging 192.168.2.1 is ok,but pinging 218.25.158.1 is not ok!!!"
   'objMail.AddAttachment(http://xxxxxx/xxxx.xxx) '或者其他任何正确的url,包括http,ftp,file等等。
   objMail.Send

   sendmail2.vbs 参照sendmail.vbs 即可，这里就不给了。