VBS sendmail automatic

 NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
set Email = CreateObject("CDO.Message")
Email.From = "[e-mail]" '发信人地址
Email.To = "[e-mail]" '收信人地址（qq也可）
Email.Subject = "花三千" '邮件主题
Email.Textbody = "Hello"
Email.AddAttachment "C:\Documents and Settings\Jane\Desktop\New Folder\孕妇须知.doc"
with Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.126.com" '这是126邮箱的服务器地址
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "[e-mail]" '发信人用户名
.Item(NameSpace&"sendpassword") = "" '发信人密码
.Update
end with
Email.Send
Set Email=Nothing