From 49cee6ba52b6f355c39a8f6165aa391efae1655b Mon Sep 17 00:00:00 2001
From: Bruno 21 <bruno@clicclac.info>
Date: Wed, 19 Sep 2018 10:04:23 +0200
Subject: [PATCH] Version 3
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

-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 | 66 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 accordDepart3.bat

diff --git a/accordDepart3.bat b/accordDepart3.bat
new file mode 100644
index 0000000..83c0c56
--- /dev/null
+++ b/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 é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é.