Frage : LotusScript Embed_Attachment Art Fehlanpassung

Ich habe den folgenden Code in einem Tätigkeitsknopf u. erhalte ich eine Art Fehlanpassung auf den Satz ObjAttachment line.
Any Ideen, die jedermann würde sein sehr geschätztes…

Sub Klicken (Quelle als Knopf)
schwaches WS als neuer NotesUIWorkspace
schwacher Lernabschnitt als neues NotesSession
schwaches RTDocField als Variant
schwaches ObjAttachment als NotesEmbeddedObject
schwaches uidoc hat, während NotesUIDocument
Doc. während gesetztes NotesDocument
DB = session.currentdatabase
gesetztes uidoc = ws.CurrentDocument

wenn uidoc verdunkeln. Editmode = falsches Then
gesetztes uidoc = ws.EditDocument (zutreffendes)
Ende If
CurrentServer$ = DB. Server
CurrentFile$ = db.FileName

CheckAssign = WS. Aufforderung (PROMPT_YESNO, _
„bitte gelesen! “, „möchten Sie diesen Antrag abschließen?“ u. _
„wenn ja, Klicken JA anders, zu annullieren Klicken NR.“  , "", "")

wenn uidoc.FieldGetText („AssignedTo“) =“ freier " Then
Messagebox „Antrag nicht zugewiesen!  Anträge müssen einem Metrik- u. Analyticsrepräsentanten vor Beendigung zugewiesen werden. “, MB_OK + MB_ICONEXCLAMATION, „STÖRUNG "
Ausgang Sub
Ende If


, wenn CheckAssign = 1 Then

CurrentUser als neuer NotesName (session.UserName)

schwacher Repräsentant als neues NotesName verdunkeln (uidoc.document. Approver (0) )

CheckAttach = WS. Aufforderung (PROMPT_YESNO, _
„Zubehöre“, „wurde Sie mögen eine Akte zu diesem Antrag anbringen?“ u. _
„wenn ja, Klicken JA anders, zu annullieren Klicken NR.“  , "", "")

SelectFile:
wenn CheckAttach = 1 Then
FileNameString = ws.OpenFileDialog (zutreffend, „auserwählte anzubringen Akten…“,)
gesetzt Doc. = uidoc. Document
gesetztes RTDocField = doc.GetFirstItem („ResolutionAttachments“)

wenn (RTDocField.Type = RICHTEXT) Then
Set ObjAttachment = RTDocField.EmbedObject (EMBED_ATTACHMENT, "", FileNameString)
Ende If
Ende If

Ende If

End Sub

Antwort : LotusScript Embed_Attachment Art Fehlanpassung

Dachdecker des guten Punktes, aber, da CEB0827 das Dokument sofort nach der Befestigung schließt, er können dieses Problem vermeiden.

Nach der Befestigung Sie können versuchen, ein Hinter außer zu tun, anstelle von der Vorderseite:
    Anruf Doc. Speichern (zutreffend, falsch, zutreffend)

anstelle von
    Anruf uidoc. Speichern

Und alle Änderungen zu sparen, die Benutzer gebildet hat, um zu dokumentieren, bevor er Ihren Befestigungsknopf, Sie anklickte, kann uidoc.save an der Oberseite Ihres Codes benennen.

Und dieses Teil Ihres Codes ändern:

Wenn uidoc. Editmode = falsch dann
 Das uidoc = ws.EditDocument (zutreffend) einstellen
Beenden wenn

so:

Wenn uidoc. Editmode = falsch dann
 uidoc. Editmode = richten aus
Beenden wenn

Die Arbeitsplatzmethode, ohne NotesDocument Argument, soll in den Ansichten angewendet werden, um z.Z. vorgewähltes Dokument zu öffnen.