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é.