需要帮助将嵌入的 Word 文档从 Notes 数据库文件导出到本地 Windows 文件夹

Question

我们有一个 Lotus Notes 7.0 环境，服务器上有一个文档库 (.nsf) 数据库文件。

我有一个本地副本（如果有帮助的话），并且希望将所有嵌入的 Word 文档导出到本地 Windows 文件夹或桌面。

这可能吗？

有一个名为“Detachit”的软件可以在线购买，但每个许可证非常昂贵（1250 美元），因此如果有人可以提供帮助，我将不胜感激。

Answer 1

如果您知道如何编写 LotusScript，那实际上非常简单。来自帮助：

Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
Const MAX = 100000
fileCount = 0    
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) _
    And ( o.FileSize > MAX ) Then
      fileCount = fileCount + 1
      Call o.ExtractFile _
      ( "c:\reports\newfile" & Cstr(fileCount) )
      Call o.Remove
      Call doc.Save( True, True )
    End If
  End Forall
End If

或者您可以使用Java： 如何使用java从.nsf(lotus Notes)文件中获取所有附件