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())&"日  上海跳蚤市场