Version 3

-le script recherche automatiquement le plus récent fichier commençant par ad*
-l’utilisateur accepte ce fichier ou en choisit un autre.
-le script indique à l’utilisateur de cliquer sur Envoyer dans Outlook puis supprime le fichier

accordDepart3.bat

@@ -0,0 +1,66 @@
+@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 <20>t<EFBFBD> trouv<75>, 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<70>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 <20> cliquer sur envoyer
+
+Echo Dans Outlook, cliquer sur Envoyer !!!
+PAUSE >nul
+DEL %export%
+
+:fin
+Echo Aucun fichier n'a pas <20>t<EFBFBD> trouv<75>.