中国DOS联盟

用VbScript 实现自动发送邮件...



1. 打开记事本或者其它文本编辑软件，输入如下代码：

Set OLA=CreateObject("Outlook.Application")

on error resume next

Set Mail= OLA.CreateItem(0)

Mail.To=" testing@163.com "

Mail.Subject="邮件标题 ..."

Mail.Body="邮件详细内容..."

'c:\Send Mail\testing.Xls 为附件路径

Mail.Attachments.add("c:\Send Mail\testing.xls")

Mail.Send

Set OLA=Nothing

OLA.Quit

2. 将文件另存为SendMail.vbs 文件.

3. 打开记事本或者其它文本编辑软件，输入如下代码：

@echo off

wscript SendMail.vbs

4. 将文件另存为SendMail.bat 文件.

5. 将批处理文件SendMail.bat在控制面板的任务管理里面设定定时执行的时间.

6. 完成了上面的步骤你还需要下载一个软件: ClickYesSetup.exe ,使之处于运行状态...

一切OK!!!