vbs如何实现定时发送邮件-创新互联

本篇内容介绍了“vbs如何实现定时发送邮件”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！

'用VBS写个脚本,然后用WINDOWS平台下的计划任务来调用,每天定时群发邮件. 
'代码如下:  下载地址 http://www.51tiao.com/info.vbs

复制代码 代码如下:

Dim connstr,conn 
Dim sql,rs,msg 

Sub OpenDB() 
    ConnStr = "DSN=51tiao.Com;UID=sa;PWD=;" 
    If Not IsObject(Conn) Then 
        Set conn = CreateObject("Adodb.Connection") 
        Conn.Open ConnStr 
    End If 
End Sub 

OpenDB() 
Send() 
CloseDB() 

Sub Send() 
    On Error Resume Next '有错继续执行 
    '邮件内容 
    msg = ""&VBCRLF _ 
    &""&VBCRLF _ 
    &""&VBCRLF _ 
    &""&VBCRLF _ 
    &""&VBCRLF _ 
    &""&VBCRLF _ 
    &""&VBCRLF _ 
    &"今日推荐信息  "&Year(Date())&"年"&Month(Date())&"月"&Day(Date())&"日  上海跳蚤市场