Set objEmail = CreateObject("CDO.Message") 'add by jg objEmail.BodyPart.Charset = "gb2312" objEmail.BodyPart.Fields.Item _ ("urn:schemas:mailheader:content-transfer-encoding") = "base64" objEmail.BodyPart.Fields.Update 'end objEmail.From = "jgli@raesystems.com" objEmail.To = "jgli@raesystems.com" objEmail.Subject = "测试邮件" objEmail.Textbody = " 这是一封测试邮件， 成功与否， 请告诉我。" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "172.18.1.4" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send