lotus notes如何批量输出附件

上面有点复杂，不需要指定富文本域。

Dim session As New NotesSession

Dim doc As NotesDocument

....

Dim AttachmentNames As Variant

AttachmentNames =Evaluate({@AttachmentNames},doc)

Forall AttachmentName in AttachmentNames

    If AttachmentName<>\"\" Then
          Dim object As NotesEmbeddedObject

          Set object=doc.GetAttachment(AttachmentName)

          If Not object Is Nothing Then

                  Call object.ExtractFile(解压文件路径，如果考虑不同文档存在同名文件，需要考虑规则)

          End If

    End If

End Forall

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