用VbScript 实现自动发送邮件 - 中国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!!!

第1楼　uditx	发表于 2010-09-13 21:58
新手上路　发帖 1　积分 1
用VbScript 实现自动发送邮件用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!!!