@echo off

: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 requete SQL:
echo dialogue_tvt '18/09/18','19/09/18','snpi'
echo.
echo 2. Copier /coller le resultat dans le Bloc Note et creer un nouveau fichier.
echo Important: Sauver le fichier sur la cle IHM1 avec un nom commencant par AD (ex AD_09-10_09_2018.txt)
echo.
echo 3. Inserer la cle IHM1 sur un poste connecte au reseau 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 cree 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

echo.
echo *** Recherche des accords de depart ***
echo.

echo On recherche un fichier AD*.txt ...

REM le script recherche le fichier commencant par AD le plus recent.)
set FILENAME=AD*.txt
set FILEPATH=

FOR /F %%f in ('dir /O:D /S /B %FILENAME%') do (
	set FILEPATH=%%f
)

REM si aucun fichier n'a ete trouve, 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
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 resultat sur le bureau.
echo.
echo Un fichier %export% a ete cree sur le bureau...

REM on ouvre le resultat dans le Bloc Note. (option)
echo.
start "realmd" "%export%"

REM on prepare 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
DEL %export%

:fin
Echo Aucun fichier n'a pas ete trouve.