lotus notes如何批量输出附件

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

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