119 lines
3.0 KiB
Batchfile
119 lines
3.0 KiB
Batchfile
@echo off
|
||
|
||
REM mettre l'encodage OEM850 pour avoir les accents
|
||
|
||
:Loop
|
||
IF "%1"=="" GOTO Continue
|
||
IF "%1"=="--help" GOTO help
|
||
SHIFT
|
||
GOTO Loop
|
||
|
||
:help
|
||
echo Aide:
|
||
echo 1. Sur le serveur de maintenace Mistral, faire une requˆte SQL:
|
||
echo dialogue_tvt '18/09/18','19/09/18','snpi'
|
||
echo.
|
||
echo 2. Copier /coller le r‚sultat dans le Bloc Note et cr‚er un nouveau fichier.
|
||
echo Important: Sauver le fichier sur la cl‚ IHM1 avec un nom commen‡ant par AD (ex AD_09-10_09_2018.txt)
|
||
echo.
|
||
echo ou
|
||
echo.
|
||
echo 1. Sur le serveur de maintenace Mistral, faire une requˆte SQL:
|
||
echo dialogue_tvt '18/09/18','19/09/18','snpi' et exporter le r‚sultat dans un fichier (Menu Query->Result to file)
|
||
echo.
|
||
echo 3. Inserer la cl‚ IHM1 sur un poste connect‚ au r‚seau et double-cliquer sur accordDepart4.bat
|
||
echo Le script recherche et propose le fichier commencant par AD le plus recent.
|
||
echo Si c'est le bon fichier, taper O
|
||
echo Sinon, taper N. Entrer le nom du fichier en vous aidant de la touche Tab
|
||
echo.
|
||
echo 4. Un nouveau fichier est cr‚e et joint en PJ a Outlook dans un nouveau message.
|
||
echo Dans Outlook, cliquer sur Envoyer.
|
||
echo.
|
||
Echo 5. Retourner sur le script, appuyer sur une touche pour quitter le script et effacer le fichier.
|
||
echo.
|
||
exit /b 15
|
||
:Continue
|
||
|
||
REM *** Options: ***
|
||
|
||
REM OPENFILE=true ouvre le fichier des accords de depart avant de l'envoyer.
|
||
set OPENFILE=false
|
||
REM le script recherche le fichier commencant par AD le plus récent.)
|
||
set FILENAME=AD*.txt
|
||
set FILEPATH=
|
||
|
||
|
||
echo.
|
||
echo *** Recherche des accords de d‚part ***
|
||
echo.
|
||
|
||
echo On recherche un fichier AD*.txt ...
|
||
|
||
FOR /F %%f in ('dir /O:D /S /B %FILENAME%') do (
|
||
set FILEPATH=%%f
|
||
)
|
||
|
||
REM si aucun fichier n'a été trouvé, on le rentre manuellement.
|
||
IF NOT "%FILEPATH%"=="" (
|
||
CHOICE /C ON /D O /T 5 /M "%FILEPATH% : est-ce le bon fichier ?"
|
||
IF errorlevel 2 goto non
|
||
IF errorlevel 1 goto oui
|
||
)
|
||
|
||
:non
|
||
echo.
|
||
echo Taper le nom du fichier archive SNPI... (Tab)
|
||
set /P FILEPATH=
|
||
set FILEPATH=%CD%%FILEPATH%
|
||
echo.
|
||
|
||
:oui
|
||
echo.
|
||
|
||
IF EXIST "%FILEPATH%" (
|
||
goto find
|
||
) ELSE (
|
||
goto fin
|
||
)
|
||
|
||
echo.
|
||
|
||
:find
|
||
REM echo %FILEPATH%
|
||
|
||
set import=%FILEPATH%
|
||
set export=%FILEPATH:AD=AccordDepart%
|
||
|
||
REM on recherche la chaine "AccorderDepart"
|
||
find "AccorderDepart" "%import%" > "%export%"
|
||
|
||
REM et on sauvegarde le r‚sultat sur le bureau.
|
||
echo.
|
||
echo Un fichier %export% a ‚t‚ cr‚e sur la cl‚...
|
||
|
||
REM on ouvre le r‚sultat dans le Bloc Note. (option)
|
||
echo.
|
||
if %OPENFILE% equ true (
|
||
start notepad.exe "%export%"
|
||
) else (
|
||
echo Mettre l'option OPENFILE=true pour afficher le fichier
|
||
echo.
|
||
)
|
||
|
||
REM on pr‚pare le mail avec sa PJ
|
||
"c:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE" /c ipm.note /m "mailto:seb.huet@reseau.sncf.fr?subject=[Accord de depart IHM1]&body=Bonjour, " /a "%export%"
|
||
|
||
REM reste … cliquer sur envoyer
|
||
|
||
Echo Dans Outlook, cliquer sur Envoyer !!!
|
||
PAUSE >nul
|
||
|
||
if %OPENFILE% equ true (
|
||
taskkill /IM notepad.exe /T
|
||
)
|
||
REM on efface le fichier des accords de d‚part
|
||
DEL %export%
|
||
|
||
:fin
|
||
Echo Aucun fichier n'a pas ‚t‚ trouv‚.
|