Outlook Vorlagen per Batch ändern
Ich möchte einige Outlook vorlagen per Batch ändern.
Hhabe versucht das wie unten zu realsieren.
Leider habe ich das Problem, es funktioniert nur mit *.txt Fieles..
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.
Die *.oft File kann ich auch mit dem Editor änderen und speichern, aber wenn 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
copy "%Alt%" "%Neu%">nul
pause
cscript nologo %R% "%Neu%" "%Von1%" "%Nach1%"
cscriptnologo %R% "%Neu%" "%Von2%" "%Nach2%"
goto :eof
:end
Listing ende -----------------------------------------------------
Hhabe versucht das wie unten zu realsieren.
Leider habe ich das Problem, es funktioniert nur mit *.txt Fieles..
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.
Die *.oft File kann ich auch mit dem Editor änderen und speichern, aber wenn 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%"
cscriptnologo %R% "%Neu%" "%Von2%" "%Nach2%"
goto :eof
:end
Listing ende -----------------------------------------------------
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 106896
Url: https://administrator.de/forum/outlook-vorlagen-per-batch-aendern-106896.html
Ausgedruckt am: 16.04.2025 um 21:04 Uhr
2 Kommentare
Neuester Kommentar
Ich möchte einige Outlook vorlagen per Batch ändern.
warum, in Outlook hast du doch die Möglichkeit -> veröffentlichen
Hhabe versucht das wie unten zu realsieren.
Leider habe ich das Problem, es funktioniert nur mit *.txt Fieles..
Leider habe ich das Problem, es funktioniert nur mit *.txt Fieles..
logisch, eine OFT-Datei ist idR. eine HTML-Datei
Die *.oft File kann ich auch mit dem Editor änderen und
speichern, aber wenn ich die Datei anschließend wieder mit
Outlook öffenn möchte bekomme ich die Aufschlussreiche
Fehlermeldung:
speichern, aber wenn ich die Datei anschließend wieder mit
Outlook öffenn möchte bekomme ich die Aufschlussreiche
Fehlermeldung:
weil du keinen HTML-fähigen Editor genutzt hast und den Dateiheader verändert hast.
Kann mir jemand sagen, was ich da machen kann?
- ändere die Vorlage in Outlook
- veröffentliche die Vorlage
- bitte ggf. den Exchange-Admin dir einen Ordner für die/deine Vorlagen in den öffentlichen Ordnern zu erstellen.
Wichtig! um die Vorlage als oft-Datei wieder speichern zu können, darf Word nicht als Email-Editor genutzt werden!
Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)