使用批處理命令行自動發(fā)送郵件

1、使用批處理命令行自動發(fā)送郵件 因為工作中,涉及到對用戶的數(shù)據(jù)庫進行備份,為了把人從重復的工作中解放出來,同時也提高備份的準確性,需要一個自動備份并發(fā)送通知的工具,找了好久都沒有現(xiàn)成方案,最后只能自己動手寫,基本原理是通過批處理腳本 調(diào)用備份腳本后,拼寫備份日志信息,并調(diào)用自動通知組件,將備份的日志信息發(fā)送到監(jiān)控人郵件.監(jiān)控人只要每天自動接收郵件就可以了.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、作為郵件內(nèi)容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自動發(fā)送郵件腳本 以上是調(diào)研發(fā)送郵件的批處理腳本,具體發(fā)送郵件的腳本我封裝成了一個單獨的文件,可以作為組件調(diào)用. 見SENDMAIL.vbs,代碼如下: Set cdo = CreateObject( "CDO.Message") '創(chuàng)建CDO.Message對象 strCfg = " '規(guī)定必須是這個

5、 With cdo '用with關鍵字減少代碼輸入 '配置 .Configuration(strCfg & "SendUsing") = 2 '使用網(wǎng)絡上的SMTP服務器而不是本地的SMTP服務器 .Configuration(strCfg & "smtpserver") = "*" 'SMTP服務器地址 .Configuration(strCfg & "sendusername") = "*" '發(fā)件人用戶名 .Configura

6、tion(strCfg & "sendpassword") = "*" '發(fā)件人郵箱密碼 .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" '發(fā)件人 .From = "t-zhangfan.slyt" '發(fā)件件人地址 .To = "t-zhangfan.slyt;t-zhangyong035.slyt" '收件人地址 .Fields("urn:schem

8、as:mailheader:X-Priority") = 1 .Fields.Update '郵件內(nèi)容 '.Subject = "備份壓縮同步日志" '.TextBody = "備份情況" '當前文件夾curdir = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"")-1)'將文本內(nèi)容寫成郵件內(nèi)容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'郵件標題改成動態(tài)的，從文本里取第一行.Subject = firstline &"日志" '附件 必須是絕對路徑'.AddAttachment curdir &"" & "mylog.txt"'.AddAttachment curdir &"&q