Команда документа недоступна при использовании uidoc.copy

Question

Я получил сообщение об ошибке «Команда документа недоступна», когда программа переходит к строке uidoc.Copy.Я исследовал это сообщение об ошибке.Но все, что я получаю, это только в том случае, если это имеет какое-либо отношение к режиму редактирования, и я вообще не использую это здесь.

    Sub Click(Source As Button)

' ===========================================================
' Get common username, mail server, and mailfile information 
  to be used on ComposeDocument method

    Dim session As New NotesSession
    Dim reg As New NotesRegistration
    Dim user As String

    reg.RegistrationServer = "Test"
    user = session.CommonUserName
    Call reg.GetUserInfo(user, _
    mailserver$, _
    mailfile$)
' ======================================================================    
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = workspace.CurrentDocument

    Call uidoc.GotoField("QSContactEMail")
    Call uidoc.SelectAll
    Call uidoc.Copy

    Set uidoc = workspace.ComposeDocument _
    (mailserver$, mailfile$, "Memo")
    Call uidoc.GotoField("Subject")
    Call uidoc.Paste
    End Sub

Answer 1

Вам не нужно использовать копирование и вставку для переноса значений из одного документа в другой.Вы можете напрямую присвоить эти значения, используя объекты документа.

Есть несколько способов сделать это - вот тот, который похож на ваш.Замените все, что находится ниже второй строки:

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument, newuidoc as NotesUIDocument

Set uidoc = workspace.CurrentDocument
Set newuidoc = workspace.ComposeDocument _
(mailserver$, mailfile$, "Memo")

Call newuidoc.FieldSetText("Subject", uidoc.FieldGetText("QSContactEMail"))

End Sub

Answer 2

Проверьте, есть ли в поле $ KeepPrivate значение «1».Это предотвратит копирование.

Ошибка также может произойти, если ничего не выбрано.Попробуйте ОСТАНОВИТЬ непосредственно перед строкой и убедитесь, что она выделена.

Здесь перечислены также другие условия:

http://www -01.ibm.com / support / docview.WSS? UID = swg21094450