lotus notes如何批量输出附件

http://www.ibm.com/developerworks/cn/lotus/notes-attachment-export/

多看看帮助， 帮助上写的例子是这样的， 参考一下。

Dim doc As NotesDocument

Dim rtitem As Variant

\'...set value of doc...

Set rtitem = doc.GetFirstItem( \"Body\" )

If ( rtitem.Type = RICHTEXT ) 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

                  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