Endlich klappts ...
Habe mir den Agent aus dem Posting von Rob Green
http://www.atnotes.de/index.php?board=7;action=display;threadid=4612;start=0 geklaut und das ganze wie folgt gelöst.
1. Habe eine Gliederung (Outline) erstellt
2. In den Gliederungspunkt habe eine Aktion reingeschrieben:
Code:@SetEnvironment("ViewAction";"Remove");
@Command([ToolsRunMacro];"IsEmbeddedView")
2. In den Gliederungspunkt habe ich allerdings eine andere Aktion reingeschrieben:
Code: @PostedCommand([FileSave]);
@SetEnvironment("ViewAction";"delete");
@Command([ToolsRunMacro];"IsEmbeddedView");
@Command([ViewRefreshFields])
3. dann habe ich die Gliederung in eine Maske embedded (ist der rosane Part im Bild....sorry. )
4. in die gleiche Maske habe ich einen View embedded
5. dann einen Agent namens "IsEmbeddedView" erstellt mit Inhalt:
Code:Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uiview As notesuiview
Set uiview=ws.currentview
'check to see if cursor is in the embedded view
If Not (uiview Is Nothing) Then
Call ws.currentdocument.clear
End If
Das habe ich auch so gemacht und fertig.
Den Code im Querydocumentdelete brauche ich nicht mehr.
6. ins QueryDocumentDelete kam
Code:
Dim s As New NotesSession
Dim doc As NotesDocument
Dim ViewAction as String
ViewAction = s.GetEnvironmentString("ViewAction")
if ViewAction <> "" then
Set doc = source.documents.getfirstdocument
'here branching code would be inserted to figure out
'what to do based on the type of doc and the
'ViewAction environment variable...
Msgbox doc.universalid+Chr(13)+Chr(13)+ _
doc.address1(0), 0, ViewAction
'just testing, don't delete anyting
continue = False
'reset ViewAction
call s.SetEnvironmentVar("ViewAction","")
End If
Cu
Martin