标题: 用VbScript 实现自动发送邮件 [打印本页]

---

作者: uditx     时间: 2010-9-13 21:58    标题: 用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!!!