Nur so nebenbei erwähnt: In 8.5 ist das KEIN Dialog mehr, sondern eine ganz normale Maske.... Und die hat Aktionen um den Agenten zu aktivieren, deaktivieren, etc. Aktionen werden aber in DialogMasken nicht angezeigt... Der "EditOfficeProfile"- Agent ist tatsächlich noch im Design der Maske, wird aber von IBM gar nicht mehr verwendet... Um das OOO- Profil zu öffnen, wird in R8.5 dieser Code verwendet:
'Begin Translate
Const OPEN_ERROR ="Bitte verwenden Sie das bereits geöffnete Abwesenheitsdialogfeld. Falls Sie das Register 'Abwesenheit' nicht sehen, können Sie es mithilfe des Menüs 'Fenster' ausfindig machen."
Const OPEN_ERROR_TITLE = "'Abwesenheit' ist bereits geöffnet"
'End Translate
'DNT
Dim session As New notessession
Dim Database As notesdatabase
Dim Profile As NotesDocument
Dim WS As New NotesUIWorkspace
If session.GetEnvironmentString("OOOTmpOpen") ="1" Then
Messagebox OPEN_ERROR, MB_OK, OPEN_ERROR_TITLE
Exit Sub
End If
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 session.SetEnvironmentVar("OOOTmpOpen", "1")
Call WS.EditDocument(True,OOODoc,,,False)
Ich vermute mal schwer, dass hier also ein fehlgeschlagenes Update (oder das fehlerhafte übertragen von eigenen Anpassungen in das 8.5er Template) vorliegt....
Denn wenn ich den Agenten "EditOfficeProfile" manuell ausführe bekomme ich genau diesen Screen. Aber normalerweise wird der halt nicht ausgeführt...
Prüft mal Eure gemeinsame Aktion "Werkzeuge\Abwesenheit"... wenn da nicht der Code drinsteht, den ich hier gepostet habe, dann wurde die Aktion nicht / falsch aktualisiert...