Copy & Paste verhindern???

[gfunkus]

Hallo,

Wie kann ich erreichen das der User inerhalb einer DB nicht mehr kopieren und einfügen kann?
Denke das es über das DB Skript läuft aber welches Event???
Habe folgenden Code im Querydragdrop und postdragdrop event
Abes es funktioniert nicht???

schnipp-->


Dim ws       As New    NotesUIWorkspace
   Dim uid      As         NotesUiDocument
   
   Dim ddmes   As         String
   ddmes   =   |Kopieren/Einfügen aus der Ansicht nicht möglich !

Drag&Drop von Dokumenten kann leider nicht unterstützt werden.|
   
   Set   uid   =   ws.currentdocument
   If Not uid Is Nothing Then
      Messagebox dmes,16,"Hinweis"      
      Continue=False
      Exit Sub
   End If

[koehlerbv]

Das Event gibt es leider nur in Ansichten (QueryPaste). Die bleibt als nichts weiter, als in allen Ansichten im Event beispielsweise ein
Continue = False
einzusetzen.

HTH,
Bernhard

[ghost]

Hallo,

das von Bernhard beschriebene Ansichten-Event QueryPaste halte ich auch für die beste Lösung. Wenn das zu aufwendig ist, dann könnte noch ein Agent mit der Einstellung 'If Documents Have Been Pasted' helfen, der die Dokumente gleich wieder löscht.

Der Nachteil an der Lösung mit dem Agenten ist, dass zumindest Deletions Stubs erzeugt werden und die Sache an den Dokumentrechten scheitern könnte.

Viele Grüße
ghost

[gfunkus]

OK, habe gerade mal 100 Views bearbeitet.

Danke für die freundliche Hilfe...


Mfg

Thorsten