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