dos下用脚本发送邮件

#automail.vbs

 

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "hanyan_007@sina.com"
Email.To =  "hanyan_js@sina.com"
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.sina.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "hanyan_007"
.Item(NameSpace&"sendpassword") = "123456"
.Update
End With
Email.Send

保存好后，双击vbs，邮箱内就收到邮件了

 可以用bat来调关键词，执行

start D:\automail.vbs 自动发送邮件