Outlook Vorlagen automatisch bearbeiten

[delmic]

Hallo Kollegen,

täglich muss ich allen unseren Kunden (12) einen Stausbericht schicken.

In jedem steht das Datum im Betreff und teilweise mehrfach innerhalb der Mail.

Ich habe für jeden Kunden eine Vorlage Status_Kunde.oft erstellt (jeder will einen anderen Mist),

Das Datum steht je nach Kunde im Format jjjj.mm.tt oder auch mal als tt.mm.jjjj.

Wer hat eine Idee wie ich über Batch oder über Outlook die Daten auf das benötigte Datum ändern kann (muss nicht dass des aktuellen Tages sein).

Für Ideen und Tipps für die Ausführung wäre ich sehr dankbar.

Mit freundlichen Grüßen

Micha

[delmic]

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