在嵌入式视图中使用querypaste

Question

我想为某些组在嵌入式视图中禁用复制粘贴功能。这是我的代码：

Sub Querypaste(Source As Notesuiview, Continue As Variant)
    Dim ndcRegel As NotesDocumentCollection
    Dim docRegel As NotesDocument

    Set ndcRegel = source.Documents

    If ndcRegel.Count <> 0 Then
        Set docRegel = ndcRegel.GetFirstDocument
        While Not docRegel Is Nothing
            If docRegel.SapAriba(0) <> "" Then
                Msgbox "This cannot be done"
                Continue = False
                Exit Sub
            Elseif docRegel.cops_order_id(0) <> "" Then
                Msgbox "BLOCKED"
                Continue = False
                Exit Sub
            End If
            Set docRegel = ndcRegel.GetNextDocument(docRegel)
        Wend
    End If

End Sub

在普通视图中，此代码有效，但在嵌入式视图中则无效。谁能帮我解决这个问题。

Answer 1

我想知道它如何与“普通”视图一起使用，因为.Documents属性是当前选择的文档。并且在粘贴文档之前，要粘贴的文档只能存在于剪贴板中。后粘贴为时已晚，在这种情况下，您必须删除文档。与代理触发器“在粘贴的文档上”相同]