Pergunta : Tipo má combinação de LotusScript Embed_Attachment

Eu tenho o seguinte código em uma tecla da ação & eu começ um tipo má combinação nas idéias de ObjAttachment line.
Any do jogo que qualquer um tem seria… o
WS não ofuscante do clique do

Sub (fonte como a tecla) como a sessão não ofuscante nova de NotesUIWorkspace
como NotesSession
RTDocField não ofuscante como Variant
ObjAttachment não ofuscante como o uidoc não ofuscante do
de NotesEmbeddedObject enquanto NotesUIDocument
escurece o doc enquanto NotesDocument
ajustado DB = uidoc ajustado de session.currentdatabase
=
de ws.CurrentDocument
se uidoc. Editmode = uidoc ajustado falso de Then
= extremidade (verdadeira) If
do
de ws.EditDocument CurrentServer$ = DB. Server

CheckAssign de CurrentFile$ = de db.FileName
= WS. Alerta (PROMPT_YESNO, _
“lido por favor! ”, “você deseja terminar este pedido?” & _
“em caso afirmativo, clique SIM de outra maneira, NO. do clique a cancelar.”  ,
do "", do
do "") se uidoc.FieldGetText (de “pedido” Un-Assigned " AssignedTo”) = Then
Messagebox “não atribuído!  Os pedidos devem ser atribuídos ao representante do medidor & do Analytics antes da conclusão. ”, MB_OK + MB_ICONEXCLAMATION,
do
de If
do fim de Sub
da saída
“do ERRO do " se CheckAssign = 1
de Then
escurece CurrentUser como o representante não ofuscante novo do
do
de NotesName (session.UserName) como NotesName novo (uidoc.document.
CheckAttach = WS do
do de Approver (0)). Alerta (PROMPT_YESNO, _
“acessórios”, “você gosta de unir uma lima a este pedido?” & _
“em caso afirmativo, clique SIM de outra maneira, NO. do clique a cancelar.”  ,
SelectFile do "", do
do ""):
se CheckAttach = 1 Then
FileNameString =
de ws.OpenFileDialog (verdadeiro, “limas seletas a unir…”,) ajustado doc = uidoc. Document

do
de RTDocField = de doc.GetFirstItem (“ResolutionAttachments”) se (RTDocField.Type = RICHTEXT) Set ObjAttachment de Then
=
End Sub de If
do fim do
de If
do fim de If
do fim de RTDocField.EmbedObject (EMBED_ATTACHMENT, "", FileNameString)
class= do

Resposta : Tipo má combinação de LotusScript Embed_Attachment

O tiler do bom ponto, mas desde que CEB0827 está fechando o original imediatamente depois da união, pode evitar esse problema.

Você pode tentar fazer um no final do processo excepto após a união, em vez da parte frontal:
    Chamada doc. Conservar (verdadeiro, falso, verdadeiro)

em vez de
    Uidoc da chamada. Conservar

E conservar todas as mudanças que o usuário fêz para documentar antes de estalar sua tecla do anexo, você pode chamar uidoc.save na parte superior de seu código.

E mudar esta parte de seu código:

Se uidoc. Editmode = falso então
 Ajustar o uidoc = o ws.EditDocument (verdadeiros)
Terminar se

como isto:

Se uidoc. Editmode = falso então
 uidoc. Editmode = retifica
Terminar se

O método do espaço de trabalho, sem argumento de NotesDocument, é pretendido ser usado nas vistas para abrir o original atualmente selecionado.