Vraag : De Wanverhouding van het Type van Embed_Attachment van LotusScript

Ik heb de volgende code in een actieknoop & krijg ik een typewanverhouding op de Vastgestelde ideeën/>Any van ObjAttachment line.

Sub (Bron als Knoop)
Schemerige ws als Nieuwe/> Schemerige zitting NotesUIWorkspace
Schemerige RTDocField als Variant
Schemerige ObjAttachment als Schemerige uidoc van NotesEmbeddedObject
als/> Schemerig doc. NotesUIDocument
db = session.currentdatabase
Geplaatst uidoc = ws.CurrentDocument

als uidoc klikt. Editmode = Valse Then
plaatste uidoc = (Ware)
Eind ws.EditDocument If
CurrentServer$ = db. Server
CurrentFile$ = db.FileName

CheckAssign = ws. Herinnering (PROMPT_YESNO, _
„gelieve Te gelezen! “, „wenst u om dit verzoek te voltooien?“ & klikt _
„als zo, JA anders, klikt te annuleren nr.“  , "", "")

als uidoc.FieldGetText („AssignedTo“) = het“ V.N.-Toegewezen " toegewezen niet Verzoek van Then
Messagebox „!  De verzoeken moeten aan Metriek & een Analytics worden toegewezen representatief voorafgaand aan voltooiing. “, MB_OK + MB_ICONEXCLAMATION, „het Eind van Sub
/> If


als CheckAssign = 1 Then

Schemerige CurrentUser als Schemerig Rep Nieuw van NotesName (session.UserName)

als Nieuwe NotesName (uidoc.document. Approver (0) )

CheckAttach = ws. Herinnering (PROMPT_YESNO, _
„Bijlagen“, zou „u een dossier aan dit verzoek willen vastmaken?“ & klikt _
„als zo, JA anders, klikt te annuleren nr.“  , "", "")

SelectFile:
als CheckAttach = 1 Then
FileNameString = Vastgestelde Ware ws.OpenFileDialog (, „Uitgezochte vast te maken dossiers…“,)
doc. = uidoc. Document
Vastgestelde RTDocField = doc.GetFirstItem („ResolutionAttachments“)

als (RTDocField.Type = RICHTEXT) Then
Set ObjAttachment = (EMBED_ATTACHMENT, "", FileNameString)
het Eind If

End Sub van If

/>

Antwoord : De Wanverhouding van het Type van Embed_Attachment van LotusScript

De goede punttegelzetter, maar aangezien CEB0827 het document onmiddellijk na het vastmaken sluit, hij kan dat probleem vermijden.

U kunt proberen om een achterste deel te doen sparen na het vastmaken, in plaats van het vooreind:
    Doc. van de vraag. Sparen (Waar, Vals, Waar)

in plaats van
    Vraag uidoc. Sparen

En al veranderingengebruiker redden heeft aan document alvorens uw bandknoop te klikken, u kan uidoc.save bij de bovenkant van uw code roepen gemaakt.

En verander dit deel van uw code:

Als uidoc. Editmode = Vals toen
 Reeks uidoc = (Ware) ws.EditDocument
Eind als

als dit:

Als uidoc. Editmode = Vals toen
 uidoc. Editmode = Waar
Eind als

De werkruimtemethode, zonder argument NotesDocument, is bedoeld om in meningen aan open momenteel geselecteerd document worden gebruikt.