LO78879: OLE EMBEDOBJECT METHOD CANNOT RETURN ERROR IF DB QUOTA IS OVER

APAR status

• Closed as fixed if next.

Error description

• The customer attempt to save document with an attachment into
  Notes Database by using OLE automation.
  If the Notes database over its quota,  EmbedObject have to
  return Error Message.  But there are no Error and document is
  saved without attachment incorrectly.
  The problem cannot reproduce on 8.0.2 Notes Client.
  
  
  Steps:
  1. Prepare mail file that has quota setting
  2. Create VB application.
  Sample Code:
  
  Private Sub CreateMemo_Click()
     On Error GoTo ErrorHandle
      Dim objNS           As Object   ' lotus.NOTESSESSION
      Dim objNDB          As Object   ' lotus.NOTESDATABASE
      Dim objNDoc         As Object   ' lotus.NOTESDOCUMENT
      Dim objNItem        As Object
  
      Dim strServer As String
      Dim strFName As String
      Dim strsubject As String
      Dim strsendto As String
      Dim strFileName As String
  
      'Mail File Name
      strFName = "mail\qtest.nsf"
  
      'Domino Server Name
      strServer = "platinum/ptest"
  
      'SendTo
       strsendto = "quota test/ptest"
  
      'Attachment File Name
       strFileName = "c:\test.xls"
  
       Set objNS = CreateObject("Notes.NotesSession")
       Set objNDB = objNS.GETDATABASE(strServer, strFName)
       Set objNDoc = objNDB.CREATEDOCUMENT()
       Set objNItem = objNDoc.CreateRichTextItem("BODY")
  
       objNDoc.sendto = strsendto
       objNDoc.Subject = "Save TEST OLE"
  
       Call objNItem.EmbedObject(1454, "", strFileName,
  "Attachment")
       Call objNDoc.Save(False, False)
  
       Set objNItem = Nothing
       Set objNDoc = Nothing
  
       MsgBox "Completed"
       Exit Sub
  
  ErrorHandle:
      MsgBox "Error"
  
  End Sub
  
  3. Perform the program repeatedly. It create and save message
  into the Notes Database.
  4. Afterf the database reach its quota size, the message can
  save normally and there are no error.
  But it don't have attachment file.
  
  Step to Reproduce by using sample application.
  
  1. Open Access sample database (test.accdb)
  2. Open a form. and change the mailfile name, server name .. in
  the code.
      'Mail File Name
      strFName = "mail\qtest.nsf"
  
      'Domino Server Name
      strServer = "platinum/ptest"
  
      'SendTo
       strsendto = "quota test/ptest"
  
      'Attachment File Name
       strFileName = "c:\test.xls"
  
  3. Push Create Memo button repeatedly.
  4. After the database reach its quota size, , the message can
  save with no error, but the message do not include attachment.
  

Local fix

• Use COM
  

Problem summary

• This APAR is closed as FIN. We have deferred the fix to a
   future release.
  

Problem conclusion

Temporary fix

Comments

• This APAR is associated with SPR# CSAO9FZA5M.
  This APAR is closed as FIN. We have deferred the fix to a
   future release.
  

APAR Information

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

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

Fix information

Applicable component levels

• R850 PSN

     UP