delmic
Goto Top

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

%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 -----------------------------------------------------

Content-Key: 106896

Url: https://administrator.de/contentid/106896

Printed on: April 20, 2024 at 03:04 o'clock

Member: NetWolf
NetWolf Jan 23, 2009 at 08:52:46 (UTC)
Goto Top
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..

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:

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)
Member: delmic
delmic Jan 23, 2009 at 14:18:58 (UTC)
Goto Top
Vielen Dank für deine schnelle Hilfe Wolfgang.
Outlook ist leider eines der Programme, die ich am wenigsten kenne...
auch wollte ich möglichst wenig an der bestehende Struktur ändern.
Die Vorlagen stehen in einem Ordner auf dem Netzwerk und werden bei Bedarf direkt aus einem auf dem Bildschirm angebrachtem HTML Fenster von den berechtigten Nutzern aufgerufen, mit Daten gefüllt, zwischengespeichert nachbearbeitet und wenn alle Infos beieinander sind versendet.
Ich sehe schon, ich muss mich da tiefer mit Outlook und Vorlagen beschäftigen.
Gruß
Micha