LO90248: REGRESSION IN NOTES 901FP7: DUPLICATE ATTACHMENTS ICONS WHEN USING LS EMBEDOBJECT TO ATTACH FILES TO A NOTESRICHTEXTITEM

Notes_901FP7IF2_W32_Standard
Notes_901FP7IF2_W32_Basic

APAR status

• Closed as program error.

Error description

• The following simple code to attach some files to a
  NotesRichtextitem (here Body of an Email) produces duplicate
  attachments icons. One as V2-
  Style attachment and the other included within the Body-field.
  With FP6 and before the attachment is only display once!
  
  Environment
  Notes 901FP7
  Windows 7 64 bit
  
  
   Sub Initialize
   Dim uiws As New NotesUIWorkspace
   Dim s As New NotesSession
   Dim uidoc As NotesUIDocument
   Dim dbCurrent As NotesDatabase
   Dim docEmail As NotesDocument
   Dim rtBody As NotesRichtextItem
   Dim uidocEmail As NotesUIDocument
  
   On Error Goto ErrorHandler
  
   Set dbCurrent = s.CurrentDatabase
   Set docEmail = dbCurrent.CreateDocument
  
   Set rtBody = docEmail.CreateRichTextItem("Body")
  
   Dim arrFiles(0) As String
   arrFiles(0) = "C:\PMR\CAprocessdocview.pdf"
  
   Forall encryptedFile In arrFiles
  
    Call rtBody.embedObject(EMBED_ATTACHMENT, "",
  encryptedFile)
    rtBody.Update
  
   End Forall
  
   Set uidocEmail = uiws.Editdocument(True, docEmail, False,
  "", True, True)
  
   Exit Sub
  ErrorHandler:
  
   Messagebox "Function: prepareNewEmail() Erl: " + Cstr(Erl)
  + " Error: " + Error
  
   Resume Next
  End Sub
  

Local fix

• The issue is not occurring with Notes 901FP6
  

Problem summary

• Rollback changes of 312778(SPR RUYAA52QNL) to fix this issue
   for now.
  

Problem conclusion

• Rollback changes of 312778(SPR RUYAA52QNL) to fix this issue
   for now.
  

Temporary fix

Comments

• This APAR is associated with SPR# RGAUADUM59.
  Rollback changes of 312778(SPR RUYAA52QNL) to fix this issue
   for now.
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

• Fixed component name

  NOTES CLIENT

• Fixed component ID

  5724E6255

Applicable component levels

• R901 PSN

     UP