rem ***************************************************************
rem ...............Проверяет появился ли файл......................
rem если файла нету то закрываеться, если есть то выполняет дальше
rem ***************************************************************
@echo off
if not exist E:\42N\75487_MONITORING.txt goto end
rem ***************************************************************
rem .....определяем переменные для даты вчерашнего дня.............
rem поскольку файл мы формируем после 00:00 (тоесть сегодня),
rem а обозвать его нужно вчерашним днем
rem ***************************************************************
set T_Date=%DATE%
IF %T_DATE:~0,1%==0 (
SET /A T_DAY=%T_DATE:~1,1%) else (
SET /A T_DAY=%T_DATE:~0,2%)
IF %T_DATE:~3,1%==0 (
SET /A T_MONTH=%T_DATE:~4,1%) else (
SET /A T_MONTH=%T_DATE:~3,2%)
SET /A T_YEAR=%T_DATE:~6,4%
SET /A T_DAY=%T_DAY%-1
IF %T_DAY% LEQ 0 SET /A T_MONTH=%T_MONTH%-1
IF %T_MONTH%== 0 SET /A T_YEAR=%T_YEAR%-1
IF %T_MONTH%== 0 SET /A T_MONTH=12
if %T_MONTH%==1 Set /A DIM=31
if %T_MONTH%==2 Set /A DIM=28
if %T_MONTH%==3 Set /A DIM=31
if %T_MONTH%==4 Set /A DIM=30
if %T_MONTH%==5 Set /A DIM=31
if %T_MONTH%==6 Set /A DIM=30
if %T_MONTH%==7 Set /A DIM=31
if %T_MONTH%==8 Set /A DIM=31
if %T_MONTH%==9 Set /A DIM=30
if %T_MONTH%==10 Set /A DIM=31
if %T_MONTH%==11 Set /A DIM=30
if %T_MONTH%==12 Set /A DIM=31
IF %T_DAY% LEQ 0 SET /A T_DAY=%T_DAY%+%DIM%
IF %T_DAY% LSS 10 SET T_DAY=0%T_DAY%
IF %T_MONTH% LSS 10 SET T_MONTH=0%T_MONTH%
rem ***************************************************************
rem ...........утилита отправки почты с командной строки...........
rem отправляет файл на указаные адреса, в теме указав вчерашний день.
rem файл с адресами лежит C:\mail_list.txt
rem пишет лог в c:\Log_send_42N.txt что куда ушло и ушло ли
rem ***************************************************************
blat.exe -body " " -attacht E:\42N\75487_MONITORING.txt -subject File_42N_%T_DAY%.%T_MONTH%.%T_YEAR% -tf C:\mail_list.txt -log c:\Log_send_42N.txt
rem ***************************************************************
rem перемещает и переименовывает файл
rem ***************************************************************
move E:\42N\75487_MONITORING.txt E:\42N\42N_old\%T_DAY%.%T_MONTH%.%T_YEAR%.txt
:end
exit
---------------------------------------------------------------------------------------
