Вопрос : Тип рассогласование LotusScript Embed_Attachment

Я имею следующий Кодего в кнопке действия & я получаю тип рассогласование на идеях ObjAttachment line.
Any комплекта любое имеет было бы больш оцененным…
тусклым ws щелчка

Sub (источника как кнопка) как новая встреча NotesUIWorkspace
тусклая как новое NotesSession
тусклое RTDocField как Variant
тусклое ObjAttachment как uidoc
NotesEmbeddedObject тусклое по мере того как NotesUIDocument
затемняет doc по мере того как NotesDocument
установленное db = uidoc session.currentdatabase
установленное =
ws.CurrentDocument
если uidoc. Editmode = ложное uidoc Then
установленное = конец If

ws.EditDocument (поистине) CurrentServer$ = db. Server

CheckAssign CurrentFile$ = db.FileName
= ws. Подсказка (PROMPT_YESNO, пожалуйста прочитанное _
«! », «вы желаете завершить этот запрос?» & _
«если так, щелчок ДА в противном случае, НЕТ щелчка, котор нужно отменить.», то  ,
"",
"") если uidoc.FieldGetText («заданный запрос AssignedTo») =» неопределенный " Then
Messagebox «!  Запросы необходимо задать к представитель метрической системы мер & Analytics до завершения. », MB_OK + MB_ICONEXCLAMATION,

If
конца Sub
выхода
«ОШИБКИ " если CheckAssign = 1
Then
затемняет CurrentUser как новый Rep

NotesName (session.UserName) тусклый как новое NotesName, то (uidoc.document.
CheckAttach = ws
Approver (0)). Подсказка (PROMPT_YESNO, _
«приложения», «о вы любит прикрепить архив к этому запросу?» & _
«если так, щелчок ДА в противном случае, НЕТ щелчка, котор нужно отменить.», то  ,
SelectFile "",
""):
если CheckAttach = 1 Then
FileNameString =
ws.OpenFileDialog (поистине, «отборные архивы, котор нужно прикрепиться…»,) установленное doc = uidoc. Document
установленное

RTDocField = doc.GetFirstItem («ResolutionAttachments») если (RTDocField.Type = RICHTEXT) Set ObjAttachment Then
=
End Sub If
конца
If
конца If
конца RTDocField.EmbedObject (EMBED_ATTACHMENT, "", FileNameString)
class=

Ответ : Тип рассогласование LotusScript Embed_Attachment

Tiler точного замечена, но в виду того что CEB0827 закрывает документ немедленно после прикрепляться, он могут избежать той проблемы.

Вы можете попытаться сделать конечное за исключением после прикрепляться, вместо начала:
    Звонок doc. Сохраньте (поистине, ложно, поистине)

вместо
    Uidoc звонока. Сохраньте

И сохранить все изменения, котор потребитель делал для того чтобы документировать перед щелкать вашей кнопкой attach, вами может вызвать uidoc.save вверху ваше Кодий.

И измените эту часть вашего Кодего:

Если uidoc. Editmode = ложно после этого
 Установите uidoc = ws.EditDocument (поистине)
Закончитесь если

как это:

Если uidoc. Editmode = ложно после этого
 uidoc. Editmode = True
Закончитесь если

Метод места для работы, без аргумента NotesDocument, предназначен быть использованным в взглядах для того чтобы раскрыть в настоящее время выбранный документ.