@echo off

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 récent.
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 é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=
echo.

:oui
echo.

IF EXIST "%FILEPATH%" (
    goto find
 ) ELSE ( 
    goto fin
 )

echo.

:find
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 ete cree sur le bureau...

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

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
DEL %export%

:fin
Echo Aucun fichier n'a pas été trouvé.