windows下简单的vbscript自动发送邮件--带附件

1.设置cscript为指定编译器：

    在dos中执行： cscript //h:cscript //s

 

2. 在记事本中编写vbs脚本，另存为 sendmail.vbs, 内容如下：

Set objEmail = CreateObject("CDO.Message")

Call SendMail()

Sub SendMail
        objEmail.From = "xxx@163.com" '发件人
        objEmail.To = "yyy@163.com" '收件人
        objEmail.Subject = "邮件主题" '电子邮件主题主题
        objEmail.Textbody = "电子邮件内容" '电子邮件内容
        objEmail.AddAttachment "c:\附件.txt" 
        objEmail.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cd