Fråga : LotusScript Embed_Attachment typMismatch

Jag har efter kodifiera i en handling att knäppas, & jag får en typmismatch på de fastställda ObjAttachment line.
Any idéerna som någon har skulle är väldeliga uppskattad…

Sub klickar (källan som knäppas)
dunkel ws som den nya NotesUIWorkspace
dunkla perioden som nya NotesSession
dunkla RTDocField som Variant
dunkla ObjAttachment som dunkel uidoc för NotesEmbeddedObject
som NotesUIDocument
dunkel doc som den NotesDocument
uppsättningen db = fastställd uidoc för session.currentdatabase
=
för ws.CurrentDocument
om uidoc. Editmode = falsk Then
fastställd uidoc = riktig)
för ws.EditDocument (avslutar If
CurrentServer$ = db. Server
CurrentFile$- = för db.FileName

CheckAssign = ws. Betalningspåminnelse (PROMPT_YESNO, _
”behar läst! ” ”du önskar att avsluta denna förfrågan?”, & _
”om så, klickar JA annars, klickar NR.EN för att avbryta.”,  ,
för "", för
för "") om uidoc.FieldGetText (”inte-tilldelad AssignedTo”) =” borttagen " Then
Messagebox ”förfrågan!  Förfrågan måste tilldelas till en metrik & en Analytics som är representativa före avslutning. ” MB_OK + MB_ICONEXCLAMATION, ”FEL"
går ut Sub
avslutar
för If

om CheckAssign = 1 Then

dunkla CurrentUser som ny tekniker för
för NotesName (session.UserName)
dunkel som nya NotesName (uidoc.document.
CheckAttach = ws för
för Approver (0) ). Betalningspåminnelse (PROMPT_YESNO, _
”tillbehör”, ”skulle dig som var lik att fästa en spara till denna förfrågan?”, & _
”om så, klickar JA annars, klickar NR.EN för att avbryta.”,  ,
SelectFile för "", för
för ""):
om CheckAttach = 1 Then
FileNameString = uppsättning för
för riktig ws.OpenFileDialog (, ”valt sparar för att fästa…”,), doc = uidoc. Document
fastställd
för RTDocField = för doc.GetFirstItem (”ResolutionAttachments”)
, om (RTDocField.Type = RICHTEXTEN) Then
Set ObjAttachment = RTDocField.EmbedObject (EMBED_ATTACHMENT, "", FileNameString)
avslutar If
, avslutar If

avslutar If

End Sub " klar "

Svar : LotusScript Embed_Attachment typMismatch

Godan pekar tileren, men, sedan CEB0827 är bokslut dokumentet, omgående når det har fäst, han kan undvika det problem.

Du kan försök att göra en back-end räddning, når du har fäst, i stället för bekläda, avslutar:
    Appell doc. Räddning (riktigt, falskt, riktigt)

i stället för
    Appelluidoc. Räddning

Och till räddningen alla ändringar som användaren har gjort för att dokumentera, innan han klickade din bilaga, knäppas, dig kan appellen uidoc.save upptill av ditt kodifiera.

Och ändra denna del av ditt kodifierar:

Om uidoc. Editmode = falskt därefter
 Fastställd uidoc = (riktig) ws.EditDocument,
Avsluta om

gilla detta:

Om uidoc. Editmode = falskt därefter
 uidoc. Editmode = True
Avsluta om

Workspacemetoden, utan det NotesDocument argumentet, ämnas för att användas in beskådar för att öppna det för närvarande utvalda dokumentet.