Bruno 21
49cee6ba52
-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
67 lines
1.4 KiB
Batchfile
67 lines
1.4 KiB
Batchfile
@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é.
|