《使用批处理命令行自动发送邮件》由会员分享，可在线阅读，更多相关《使用批处理命令行自动发送邮件（3页珍藏版）》请在金锄头文库上搜索。
1、使用批处理命令行自动发送邮件因为工作中,涉及到对用户的数据库进行备份, 为了把人从重复的工作中解放出来,同时也提高备份的准确性,需要一个自动备份并发送通知的工具,找了好久都没有现成方案,最后只能自己动手写,基本原理是通过批处理脚本 调用备份脚本后,拼写备份日志信息,并调用自动通知组件,将备份的日志信息发送到监控人邮件.监控人只要每天自动接收邮件就可以了.DOC 命令如下:rem 写入日志，永久存放echo. %cur_log%.txtecho * start * %cur_log%.txtecho %date% %time:0,8% %cur_log%.txtecho xcopy.exe %n
2、xi %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 写入邮件日志，作为邮件内容echo %cur_file%同步日志 %maillog%.txtecho * start * %maillog%.txtecho %date% %time:0,8%
3、 %maillog%.txtecho xcopy.exe %nxi %des_dir% /f /y %maillog%.txtecho sueccess %maillog%.txtecho. %maillog%.txtecho xcopy.exe %nxi %des_dir2% /f /y %maillog%.txtecho sueccess %maillog%.txtecho * end * %maillog%.txtecho. %maillog%.txtSENDMAIL.vbsExit自动发送邮件脚本 以上是调研发送邮件的批处理脚本,具体发送邮件的脚本我封装成了一个单独的文件,可以作为组件
4、调用. 见 SENDMAIL.vbs,代码如下:Set cdo = CreateObject( CDO.Message) 创建 CDO.Message 对象strCfg = http:/ 规定必须是这个With cdo 用 with 关键字减少代码输入 配置.Configuration(strCfg & SendUsing) = 2 使用网络上的 SMTP 服务器而不是本地的 SMTP 服务器.Configuration(strCfg & smtpserver) = * SMTP 服务器地址 .Configuration(strCfg & sendusername) = * 发件人用户名.Co
5、nfiguration(strCfg & sendpassword) = * 发件人邮箱密码 .Configuration(strCfg & smtpauthenticate)=1 服务器认证方式 .Configuration(schema & smtpserverport) = 465 SMTP 服务器端口 .Configuration(schema & smtpusessl) = True 是否使用 SSL .Configuration(schema & smtpconnectiontimeout) = 60 连接服务器的超时时间 .Configuration.Fields.Update
6、邮件头.Sender = t- 发件人.From = t- 发件件人地址.To = t-;t- 收件人地址.Fields(urn:schemas:mailheader:X-Priority) = 1 .Fields.Update 邮件内容.Subject = 备份压缩同步日志 .TextBody = 备份情况 当前文件夹curdir = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,)-1)将文本内容写成邮件内容x=mail_log.txtSet fso=CreateObject(Scripting.FileSystem
7、Object)Set myfile=fso.OpenTextFile(x,1,Ture)firstline = myfile.readlinec=myfile.readallmyfile.Close.Textbody = c邮件标题改成动态的，从文本里取第一行.Subject = firstline &日志 附件 必须是绝对路径.AddAttachment curdir & & mylog.txt.AddAttachment curdir & & winrar400sc.exe发送.send End With msgbox 发送完成 根据不同监控要求，设定备份后期，调用备份脚本后，将备份结果自动发送到监控者邮箱，可大大方便备份的监控工作
