So, ich habe versucht das zu realsieren,
hänge aber an dem Problem, dass es mit *.txt Files problemlos funktioniert,
aber bei Vorlagenfiles von Outlook (*.oft) bringt das Programm die Fehlermeldungen:
C:\DOKUME~1\mdellerm\LOKALE~1\TempReplaceInFile.vbs(1, 109) Laufzeitfehler in Mi
crosoft VBScript: Ungültiger Prozeduraufruf oder ungültiges Argument
C:\DOKUME~1\mdellerm\LOKALE~1\TempReplaceInFile.vbs(1, 76) Laufzeitfehler in Mic
rosoft VBScript: Eingabe hinter Dateiende.
Wenn ich die *.oft File kann ich mit dem Editor änderen und speichern, aber winn ich die Datei anschließend wieder mit Outlook öffenn möchte bekomme ich die Aufschlussreiche Fehlermeldung:
Die Datei xy.oft kann nicht geöffnet werden. Möglicherweise existiert die Datei nicht, oder Siebesitzen nicht die Berechtigung, die Datei zu öffnen, oder die Datei ist von e9inem anderen Programm geöffnet. Klicken Sie mit der rechten Maustaste auf den Ordner, der die Datei enthält, und klicken Sie dann auf "Eigenschaften", um Ihre 'Berechtigungen für den Ordner zu überprüfen.
Was natürlich Käse ist.
Kann mir jemand sagen, was ich da machen kann?
---------------------------Listing anfang---------------------------------
@echo off & setlocal
::Die Variablen für Datum definieren
FOR /F "tokens=1,2,3,4 delims=/. " %%a in ('date/T') do set JJ=%%c
FOR /F "tokens=1,2,3,4 delims=/. " %%a in ('date/T') do set MM=%%b
FOR /F "tokens=1,2,3,4 delims=/. " %%a in ('date/T') do set TT=%%a
::Ein- Ausgaben definieren
set "Alt=C:\MailTest\Vorlagen\xyz1.oft"
set "Neu=C:\MailTest\Vorlagen\xyz1_neu.oft"
call :Datum
set "Alt=C:\MailTest\Vorlagen\xyz2.oft"
set "Neu=C:\MailTest\Vorlagen\xyz2_neu.oft"
call :Datum
set "Alt=C:\MailTest\Vorlagen\xyz3.oft"
set "Neu=C:\MailTest\Vorlagen\xyz3_neu.oft"
goto :end
:Datum
set "Von1=tt.mm.jjjj"
set "Nach1=%TT%.%MM%.%JJ%"
set "Von2=jjjj.mm.tt"
set "Nach2=%JJ%.%MM%.%TT%"
set R=%temp%ReplaceInFile.vbs
>%R% echo Set fso=CreateObject("Scripting.FileSystemObject"):Set a=WScript.Arguments:T=fso.OpenTextFile(a(0)).ReadAll:fso.CreateTextFile(a(0)).Write Replace(T,a(1),a(2))
copy "%Alt%" "%Neu%">nul
pause
cscript //nologo %R% "%Neu%" "%Von1%" "%Nach1%"
cscript //nologo %R% "%Neu%" "%Von2%" "%Nach2%"
goto :eof
:end
------------------------------Listing ende-------------------------
