内容主题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/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.163.com" 'SMTP服务器地址
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx" '用户名
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx" '密码
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '明文验证
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'SMTP端口号
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub

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

call automail.vbs

4. 可用windows定时任务来调用sendmail.bat.

文章结束给大家分享下程序员的一些笑话语录：

手机终究会变成PC，所以ip会比wm更加畅销，但是有一天手机强大到一定程度了就会发现只有wm的支持才能完美享受。就好比树和草，草长得再高也是草，时间到了条件成熟了树就会窜天高了。www.ishuo.cn