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