Questione : Tipo disadattamento di LotusScript Embed_Attachment

Ho il seguente codice in un tasto di azione & ottengo un tipo il disadattamento sulle idee di ObjAttachment line.
Any dell'insieme che chiunque ha sarebbe…
WS fioca di scatto del

Sub (fonte come tasto) come nuova sessione fioca di NotesUIWorkspace
come nuovo NotesSession
RTDocField fioco come Variant
ObjAttachment fioco come uidoc fioco del
di NotesEmbeddedObject mentre NotesUIDocument
oscura il documento mentre NotesDocument
stabilito db = uidoc stabilito di session.currentdatabase
=
di ws.CurrentDocument
se uidoc. Editmode = uidoc stabilito falso di Then
= estremità (allineare) If
del
di ws.EditDocument CurrentServer$ = db. Server

CheckAssign di db.FileName
= la WS. Richiamo (PROMPT_YESNO, _
“colto prego! „, “desiderate completare questa richiesta?„ & _
“in caso affermativo, scatto SÌ al contrario, NO di scatto da annullare.„  ,
del se uidoc.FieldGetText (“richiesta„ Un-Assigned " di AssignedTo„) = Then
Messagebox “non assegnata!  Le richieste devono essere assegnate ad un rappresentante di Analytics & di metrica prima di completamento. „, MB_OK + MB_ICONEXCLAMATION,
del
di If
di conclusione di Sub
dell'uscita del
“di ERRORE " se CheckAssign = 1
di Then
oscura CurrentUser come nuovo rappresentante fioco del
del
di NotesName (session.UserName) come nuovo NotesName (uidoc.document. (0)
CheckAttach = WS del
del ) di Approver. Richiamo (PROMPT_YESNO, il _
“collegamenti„, “gradice attaccare una lima a questa richiesta?„ & _
“in caso affermativo, scatto SÌ al contrario, NO di scatto da annullare.„  ,
SelectFile del :
se CheckAttach = 1 Then
FileNameString =
di ws.OpenFileDialog (allineare, “lime prescelte da attaccare…„,) stabilito documento = uidoc. Document

del
di doc.GetFirstItem = di RTDocField (“ResolutionAttachments„) se (RTDocField.Type = RICHTEXT) Set ObjAttachment di Then
=
End Sub di If
di conclusione del
di If
di conclusione di If
di conclusione di RTDocField.EmbedObject (EMBED_ATTACHMENT, "", FileNameString)
class= del

Risposta : Tipo disadattamento di LotusScript Embed_Attachment

Il piastrellista del buon punto, ma poiché CEB0827 sta chiudendo il documento subito dopo dell'attaccattura, lui può evitare quel problema.

Potete provare a fare un posteriore salvo dopo l'attaccattura, anziché la parte frontale:
    Documento di chiamata. Risparmiare (allineare, falso, allineare)

anziché
    Uidoc di chiamata. Risparmiare

E conservare tutti i cambiamenti che utente ha fatto per documentare prima di scattare il vostro tasto dell'attaccatura, voi può denominare uidoc.save alla parte superiore del vostro codice.

E cambiare questa parte del vostro codice:

Se uidoc. Editmode = falso allora
 Regolare il uidoc = ws.EditDocument (allineare)
Concluder se

come questo:

Se uidoc. Editmode = falso allora
 uidoc. Editmode = allinea
Concluder se

Il metodo del luogo di lavoro, senza discussione di NotesDocument, è inteso per essere utilizzato nelle viste per aprire il documento attualmente selezionato.