Pytanie : LotusScript Embed_Attachment Typ Niedopasowanie

I mieć the następujący kod w akcja guzik & I dostawać typ niedopasowanie na the Ustalony ObjAttachment line.
Any pomysł który i mieć być ogromnie doceniać…

Sub Stuknięcie (Źródło Jako Guzik)
Ciemnawy ws Gdy Nowy NotesUIWorkspace
Ćmić sesja Gdy Nowy NotesSession
Ćmić RTDocField Gdy Variant
Ćmić ObjAttachment Gdy NotesEmbeddedObject
Ćmić uidoc Gdy NotesUIDocument
Ćmić doc Jako NotesDocument
Ustalony db = session.currentdatabase
Ustalony uidoc = ws.CurrentDocument

Jeżeli uidoc. Editmode = Fałszywy Then
Ustalony uidoc = ws.EditDocument (Prawdziwy)
Końcówka If
CurrentServer$ = db. Server
CurrentFile$ = db.FileName

CheckAssign = ws. Podpowiedź (PROMPT_YESNO, _
"Zadawalać! ", "Ty życzyć ten prośba?" & _
"Jeżeli w ten sposób, stuknięcie TAK inaczej, stuknięcie NIE."  , "", "")

Jeżeli uidoc.FieldGetText ("AssignedTo") =" Wyznaczać " Then
Messagebox "Prośba wyznaczać!  Prośba musieć wyznaczać Metryka & Analityka przedstawicielski przed ukończenie. ", MB_OK + MB_ICONEXCLAMATION, "BŁĄD "
Wyjście Sub
Końcówka If


Jeżeli CheckAssign = (1) Then

Ćmić CurrentUser Gdy Nowy NotesName (session.UserName)

Ćmić Ryps Jako Nowy NotesName (uidoc.document. Approver ((0)) )

CheckAttach = ws. Podpowiedź (PROMPT_YESNO, _
"Doczepianie", "Ty lubić kartoteka ten prośba?" & _
"Jeżeli w ten sposób, stuknięcie TAK inaczej, stuknięcie NIE."  , "", "")

SelectFile:
Jeżeli CheckAttach = (1) Then
FileNameString = ws.OpenFileDialog (Prawdziwy, "Wybrany kartoteka…",)
Ustalony doc = uidoc. Document
Ustalony RTDocField = doc.GetFirstItem ("ResolutionAttachments")

Jeżeli (RTDocField.Type = RICHTEXT) Then
Set ObjAttachment = RTDocField.EmbedObject (EMBED_ATTACHMENT, "", FileNameString)
Końcówka If
Końcówka If

Końcówka If

End Sub

Odpowiedź : LotusScript Embed_Attachment Typ Niedopasowanie

Dobra uwaga kaflarz, ale ponieważ CEB0827 zamykać the dokument natychmiast po, on móc ten problem.

Ty móc dodatkowy procesor oprócz po, zamiast the początkowy:
    Wywoławczy doc. Save (Prawdziwy, Fałszywy, Prawdziwy)

zamiast
    Wywoławczy uidoc. Save

I save wszystkie zmiana użytkownik robić przed twój attach guzik, ty móc uidoc.save przy the wierzchołek twój kod.

I zmieniać ten część twój kod:

Jeżeli uidoc. Editmode = Fałszywy Wtedy
 Ustalony uidoc = ws.EditDocument (Prawdziwy)
Kończyć Jeżeli

jak to:

Jeżeli uidoc. Editmode = Fałszywy Wtedy
 uidoc. Editmode = Prawdziwy
Kończyć Jeżeli

The workspace metoda, bez NotesDocument argument, zamierzać używać w widok obecnie wybrany dokument.