Namespace = "http://schemas.microsoft.com/cdpo/configuration/"
Set email = creteObject ("cdo.message")
Email.from = "zzzevazzz@21cn.com"
Email.to = "zzzevazz@sina.com"
Email.subject = "sendmail.vbs"
Email.textbody = "ok!"
With email.configuration.fields
.Item (Namespace & "Sendusing") = 2
.Item (Namespace & "SMTPServer) =" SMTP.21CN.COM "
.Item (Namespace & "SMTPSerPort") = 25
.Item (Namespace & "SMTPAUThenticate) = 1
.Item (Namespace & "Sendusername) =" zzzevazzz "
.Item (Namespace & "SendPassword") = "pH4NT0M!"
.Update
End with
Email.send
