1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

 @echo off
set mailfile=%1
set resptxt=%2
set mailto=%3
set mailfrom=%4
set logfile=c:jana2logfilesautorespond.log

rem In tacfile wird das Datum gespeichert, zudem das letzte mal die tafile geloescht wurde.
rem TA: today's addresses
set tacfile=tac.dat
set tac=%date%
set tafile=ta.dat

:delTA
if not exist %tacfile% echo %tac% > %tacfile%
for /F %%i in (%tacfile%) do if not "%%i"=="%tac%" (
del %tafile%
echo %tac% > %tacfile%
echo %date% %time% Setze Empfaengerprotokoll zurueck. >> %logfile%
)
goto checkTA

:checkTA
if not exist %tafile% goto checkSelf
find "%mailfrom%" %tafile% > nul
if %errorlevel%==1 goto checkself
echo %date% %time% Der Absender %mailfrom% wurde heute bereits über die Abwesenheit von %mailto% informiert. >> %logfile%
goto ende

:checkSelf
if "%mailto%"=="%mailfrom%" goto selfmail

:respond
rem Sonderzeichen filtern kann bei eMail-Adressen notwendig sein!!!
echo %mailfrom% >> %tafile%
c:jana2janatoolsbmailbmail.exe -s 192.168.0.1 -f %mailto% -t %mailfrom% -a "Der Empfänger %mailto% ist leider abwesend." -m %resptxt% -c -h
echo %date% %time% Der Empänger %mailto% ist abwesend. Abwesenheitsinformation an %mailfrom% >>%logfile%
goto ende

:selfmail
echo %date% %time% Eigene Mail an %mailto% nicht beantwortet. >>%logfile%
goto ende

:ende