使用批处理命令行自动发送邮件

1、使用批处理命令行自动发送邮件 因为工作中,涉及到对用户的数据库进行备份,为了把人从重复的工作中解放出来,同时也提高备份的准确性,需要一个自动备份并发送通知的工具,找了好久都没有现成方案,最后只能自己动手写,基本原理是通过批处理脚本 调用备份脚本后,拼写备份日志信息,并调用自动通知组件,将备份的日志信息发送到监控人邮件.监控人只要每天自动接收邮件就可以了.DOC命令如下:rem 写入日志，永久存放echo. >> %cur_log%.txtecho * start * >> %cur_log%.txtecho %date% %time:0,8% >> %cur

2、_log%.txtecho xcopy.exe %nxi %des_dir% /f /y >> %cur_log%.txtecho sueccess >> %cur_log%.txtecho. >> %cur_log%.txtecho xcopy.exe %nxi %des_dir2% /f /y >> %cur_log%.txtecho sueccess >> %cur_log%.txtecho * end * >> %cur_log%.txtecho. >> %cur_log%.txtrem 写入邮件日志，

3、作为邮件内容echo %cur_file%同步日志>> %maillog%.txtecho * start * >> %maillog%.txtecho %date% %time:0,8% >> %maillog%.txtecho xcopy.exe %nxi %des_dir% /f /y >> %maillog%.txtecho sueccess >> %maillog%.txtecho. >> %maillog%.txtecho xcopy.exe %nxi %des_dir2% /f /y >> %ma

4、illog%.txtecho sueccess >> %maillog%.txtecho * end * >> %maillog%.txtecho. >> %maillog%.txtSENDMAIL.vbsExit自动发送邮件脚本 以上是调研发送邮件的批处理脚本,具体发送邮件的脚本我封装成了一个单独的文件,可以作为组件调用. 见SENDMAIL.vbs,代码如下: Set cdo = CreateObject( "CDO.Message") '创建CDO.Message对象 strCfg = " '规定必须是这个

5、 With cdo '用with关键字减少代码输入 '配置 .Configuration(strCfg & "SendUsing") = 2 '使用网络上的SMTP服务器而不是本地的SMTP服务器 .Configuration(strCfg & "smtpserver") = "*" 'SMTP服务器地址 .Configuration(strCfg & "sendusername") = "*" '发件人用户名 .Configura

6、tion(strCfg & "sendpassword") = "*" '发件人邮箱密码 .Configuration(strCfg & "smtpauthenticate")=1 '服务器认证方式 .Configuration(schema & "smtpserverport") = 465 'SMTP服务器端口 .Configuration(schema & "smtpusessl") = True '是否使用SSL .Conf

7、iguration(schema & "smtpconnectiontimeout") = 60 '连接服务器的超时时间 .Configuration.Fields.Update '邮件头 .Sender = "t-zhangfan.slyt" '发件人 .From = "t-zhangfan.slyt" '发件件人地址 .To = "t-zhangfan.slyt;t-zhangyong035.slyt" '收件人地址 .Fields("urn:schem

8、as:mailheader:X-Priority") = 1 .Fields.Update '邮件内容 '.Subject = "备份压缩同步日志" '.TextBody = "备份情况" '当前文件夹curdir = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"")-1)'将文本内容写成邮件内容x="mail_log.txt"Set fso=CreateObject("Scri

9、pting.FileSystemObject")Set myfile=fso.OpenTextFile(x,1,Ture)firstline = myfile.readlinec=myfile.readallmyfile.Close.Textbody = c'邮件标题改成动态的，从文本里取第一行.Subject = firstline &"日志" '附件 必须是绝对路径'.AddAttachment curdir &"" & "mylog.txt"'.AddAttachment curdir &"&q