vbs sendmail发邮件带附件方法

namespace = "http://schemas.microsoft.com/cdo/configuration/"
set email = createobject("cdo.message")
email.from = "[e-mail]"
email.to = "[e-mail]"
email.subject = "test sendmail.vbs"
email.textbody = "ok!"
email.addattachment "c:\foo.zip"
with email.configuration.fields
.item(namespace&"sendusing") = 2
.item(namespace&"smtpserver") = "smtp.21cn.com" 
.item(namespace&"smtpserverport") = 25
.item(namespace&"smtpauthenticate") = 1
.item(namespace&"sendusername") = "zzzevazzz"
.item(namespace&"sendpassword") = "ph4nt0m!"
.update
end with
email.send