Lotus附件判空问题

Call uidoc.save
       Set rtitem = doc.GetFirstItem( "rhtAttachment" )
       If ( rtitem.Type = RICHTEXT ) Then
              If Isarray(rtitem.EmbeddedObjects) Then
                     Forall o In rtitem.EmbeddedObjects
                            If o.Type = EMBED_ATTACHMENT Then
                                         Call o.ExtractFile( "c:\samples\" & o.Source )
                                         'Call o.Remove
                                         'Call doc.Save( False, True )
                            End If
                     End Forall
              End If
End If