Abwesenheitsagent von andere DB aufrufen

[suuper]

Hallo zusammen,

leider bin ich in Script nicht so erfahren.
Wir haben uns ein betriebsinternen Telefonbuch gebastelt in der die User u.a. auch ihren Abwesenheitsagenten aktivieren konnten. Mit der Umstellung auf die R8-Mailschablone funktioniert der Aufruf aber leider nicht mehr.
Vorher hatte ich nur folgendes in dem Aktionbutton stehen:

@PostedCommand([MailOpen]);
@PostedCommand([ToolsRunMacro];"(EditOfficeProfile)")

Das MailOpen geht noch aber das EditOfficeProfile nicht mehr.
Im Script vom Aufruf des Abwesenheitsagenten hab ich mal reingeschaut, kanns aber alleine nicht lösen:
Das original Abwesenheiten-Script sieht so aus (s.u.).
Wie muß ich das ändern, damit das Abwesenheitsprofil des Users aufgeht?

Vielen Dank schonmal vorab für Eure Tipps.

Gruß,
suuper


Abwensheitsagent:

Sub Click(Source As Button)
   
   Dim session As New notessession
   Dim Database As notesdatabase
   Dim Profile As NotesDocument
   Dim WS As New NotesUIWorkspace
   
   Set Database = session.currentdatabase
   
   Dim OOODoc As New Notesdocument(Database)
   
   Set Profile = Database.GetProfileDocument("OutOfOfficeProfile")
   
   Call OOODoc.ReplaceItemValue("Form", "OutOfOfficeProfile")
   Call Profile.CopyAllItems(OOODoc)
   
   Call WS.EditDocument(True,OOODoc,,,False)
   
End Sub

[ascabg]

Hallo,

Was genau geht denn nicht?
(irgenwelche Fehlermeldungen)


Andreas

[botschi]

Mag daran liegen, dass es unter 8.X den Agenten nicht mehr gibt?
Ich habe keinen Agenten mit diesem Namen in meinem Mailfile (8.5.1)...


Matthias

[suuper]

hmm...also wir haben 8.02 und da gibts den Agenten noch...

Fehlermeldung kommt keine, sondern es geht nur ein kleines Fenster auf...ich hängs mal als Screenshot an.

Werden denn im Script nicht noch irgendwelche Paramter mit zum Aufruf übergeben (CopyAllItem)?

Ob Script- oder Formel-Agent ist eigentlich egal...nur es müßte wieder funktionieren...

Beim Screenshotten ist mir grad folgendes aufgefallen:
Es wird schon das Abwesenheitsprofil aufgerufen, aber in einem ganz kleinen Fenster.
Und das kann ich auch nachträglich nicht groß ziehen.
Wie krieg ich das Abwensenheitsprofil in voller Größe geöffnet?

Danke für Eure Tipps.

Gruß,
suuper

[koehlerbv]

Was mir hier vollkommen unklar vorkommt: Warum in aller Welt wird mit den Werten des ProfileDocuments ein neues Dokument in der aufrufenden Datenbank erzeugt? Wieso wird nicht gleich das OoO-Profile geöffnet?

Bernhard

[suuper]

Hallo Bernhard,

meinst Du das Script?
Das steht so in der Schaltfläche der Notes-DB Version 8.02.
Das ist nicht von mir...

Wie muß es denn aussehen, wenn gleich das OoO-Profil des angemeldeten Users geöffnet wird?
Egal ob Script oder Formel?


LG,
Suuper

[MacSpudik]

Hallo Suuper,

falls es noch von Relevanz sein sollte bzw. für die Nachzügler, die das gleiche Problem haben könnten:
siehe http://atnotes.de/index.php?topic=50391.new;topicseen#new

Grüße von
Sebastian