Question : Type disparité de LotusScript Embed_Attachment

J'ai le code suivant dans un bouton d'action et j'obtiens un type disparité sur les idées d'ObjAttachment line.
Any d'ensemble que n'importe qui a serait… le
faible WS du clic du

Sub (source comme bouton) en tant que nouvelle faible session de NotesUIWorkspace
en tant que nouveau NotesSession
faible RTDocField comme Variant
faible ObjAttachment en tant qu'uidoc du
de NotesEmbeddedObject faible pendant que NotesUIDocument
obscurcissent le Doc. pendant que NotesDocument
réglé DB = uidoc réglé de session.currentdatabase
=
de ws.CurrentDocument
si uidoc. Editmode = uidoc réglé faux de Then
= extrémité (vraie) If
du
de ws.EditDocument CurrentServer$ = DB. Server

CheckAssign de CurrentFile$ = de db.FileName
= le WS. Message de sollicitation (PROMPT_YESNO, _
« svp lu !  », « vous souhaitez accomplir cette demande ? » et _
« si oui, clic OUI autrement, NON de clic à décommander. »  ,
de "", de
de "") si uidoc.FieldGetText (demande » non affectée " de « AssignedTo ») = Then
Messagebox « non assignée !  Des demandes doivent être assignées à un représentant de métrique et d'Analytics avant l'accomplissement.  », MB_OK + MB_ICONEXCLAMATION, « 
du
d'If
de fin de Sub
de sortie du
d'ERREUR " si CheckAssign = 1
de Then
obscurcissent CurrentUser en tant que nouveau représentant du
du
de NotesName (session.UserName) faible en tant que nouveau NotesName (uidoc.document. (0)
CheckAttach = WS du
du ) d'Approver. Message de sollicitation (PROMPT_YESNO, le _
« attachements », « vous aime attacher un dossier à cette demande ? » et _
« si oui, clic OUI autrement, NON de clic à décommander. »  ,
SelectFile de "", de
de "") :
si CheckAttach = 1 Then
FileNameString =
de ws.OpenFileDialog (vrai, « dossiers choisis à attacher… »,) réglé Doc. = uidoc. Document

du
de RTDocField = de doc.GetFirstItem (« ResolutionAttachments ») si (RTDocField.Type = FEUILLE DE STYLES) Set ObjAttachment de Then
=
End Sub d'If
de fin du
d'If
de fin d'If
de fin de RTDocField.EmbedObject (EMBED_ATTACHMENT, "", FileNameString)
class= de

Réponse : Type disparité de LotusScript Embed_Attachment

Le carreleur de point positif, mais puisque CEB0827 ferme le document juste après la fixation, lui peut éviter ce problème.

Vous pouvez essayer de faire un principal sauf après la fixation, au lieu de l'embout avant :
    Doc. d'appel. Économiser (vrai, faux, vrai)

au lieu de
    Uidoc d'appel. Économiser

Et sauver tous les changements que l'utilisateur a fait pour documenter avant de cliquer votre bouton d'attache, vous peut appeler uidoc.save au dessus de votre code.

Et changer la présente partie de votre code :

Si uidoc. Editmode = faux puis
 Placer l'uidoc = le ws.EditDocument (vrais)
Finir si

comme ceci :

Si uidoc. Editmode = faux puis
 uidoc. Editmode = rectifient
Finir si

La méthode de zone de travail, sans argument de NotesDocument, est prévue pour être employée dans les vues pour ouvrir le document actuellement choisi.