CDO.Message 发邮件

NameSpace := "http://schemas.microsoft.com/cdo/configuration/"
Email := ComObjCreate("CDO.Message")
Email.From := "sunshinezxk@163.com"
Email.To := "386283215@qq.com"
Email.Subject := "IP变动邮件"
Email.Htmlbody := "IP:192.168.56.1"
;Email.AddAttachment("C:\foo.zip")
Email.Configuration.Fields.Item(NameSpace "sendusing") := 2
Email.Configuration.Fields.Item(NameSpace "smtpserver") := "smtp.163.com" ;SMTP服务器地址
Email.Configuration.Fields.Item(NameSpace "smtpserverport") := 25
Email.Configuration.Fields.Item(NameSpace "smtpauthenticate") := 1
Email.Configuration.Fields.Item(NameSpace "sendusername") := "xxxx@163.com" ;邮箱账号
Email.Configuration.Fields.Item(NameSpace "sendpassword") := "xxxx" ;邮箱密码
Email.Configuration.Fields.update
Email.Send