Cuestión : Tipo unión mal hecha de LotusScript Embed_Attachment

Tengo el código siguiente en un botón de la acción y consigo un tipo unión mal hecha en las ideas de ObjAttachment line.
Any del sistema que cualquier persona tiene sería… el
WS dévil del tecleo del

Sub (fuente como botón) como nueva sesión dévil de NotesUIWorkspace
como nuevo NotesSession
RTDocField dévil como Variant
ObjAttachment dévil como uidoc dévil del
de NotesEmbeddedObject mientras que NotesUIDocument
amortigua el doc. mientras que NotesDocument
determinado DB = uidoc determinado de session.currentdatabase
= el
de ws.CurrentDocument
si uidoc. Editmode = uidoc determinado falso de Then
= extremo (verdadero) If
del
de ws.EditDocument CurrentServer$ = DB. Server

CheckAssign de CurrentFile$ = de db.FileName
= WS. ¡Aviso (PROMPT_YESNO, _
“leído por favor! ”, “usted desea terminar esta petición?” y _
“si es así tecleo SÍ de otra manera, NO del tecleo a cancelar.”  ¡,
del "", del
del "") si uidoc.FieldGetText (petición” no asignada " de “AssignedTo”) = Then
Messagebox “no asignada!  Las peticiones se deben asignar a un representante de la métrica y de Analytics antes de la terminación. ”, MB_OK + MB_ICONEXCLAMATION, “
del
de If
del final de Sub
de la salida del
del ERROR " si CheckAssign = 1
de Then
amortigua CurrentUser como nuevo representante dévil del
del
de NotesName (session.UserName) como nuevo NotesName (uidoc.document. (0)
CheckAttach = WS del
del ) de Approver. Aviso (PROMPT_YESNO, _
“accesorios”, “usted tiene gusto de atar un archivo a esta petición?” y _
“si es así tecleo SÍ de otra manera, NO del tecleo a cancelar.”  ,
SelectFile del "", del
del ""):
si CheckAttach = 1 Then
FileNameString =
de ws.OpenFileDialog (verdad, “archivos selectos a atar…”,) determinado doc. = uidoc. Document

del
de RTDocField = de doc.GetFirstItem (“ResolutionAttachments”) si (RTDocField.Type = RICHTEXT) Set ObjAttachment de Then
=
End Sub de If
del final del
de If
del final de If
del final de RTDocField.EmbedObject (EMBED_ATTACHMENT, "", FileNameString)
class= del

Respuesta : Tipo unión mal hecha de LotusScript Embed_Attachment

El solador del buen punto, pero puesto que CEB0827 está cerrando el documento inmediatamente después de la atadura, él puede evitar ese problema.

Usted puede intentar hacer un final excepto después de atar, en vez de las partes frontales:
    Llamada doc. Ahorrar (verdad, falso, verdad)

en vez de
    Uidoc de la llamada. Ahorrar

Y ahorrar todos los cambios que el usuario ha hecho para documentar antes de chascar su botón de la fijación, usted puede llamar uidoc.save en la tapa de su código.

Y cambiar esta parte de su código:

Si uidoc. Editmode = falso entonces
 Fijar el uidoc = ws.EditDocument (verdades)
Terminar si

como esto:

Si uidoc. Editmode = falso entonces
 uidoc. Editmode = verdad
Terminar si

El método del espacio de trabajo, sin la discusión de NotesDocument, se piensa para ser utilizado en opiniónes para abrir el documento actual seleccionado.