lotus notes如何批量输出附件

                  Set rtitem =doc.GetFirstItem(AttFields(af))

              If Not rtitem Is Nothing Then

               If ( rtitem.Type = RICHTEXT ) Then

                          If Not Isempty(rtitem.EmbeddedObjects) Then

                 Forall o In rtitem.EmbeddedObjects

                                                    Call o.ExtractFile( \"d:\vttdmsatt\\" & o.name)                                                                                                       End Forall

                End If       

              End If