Question

是否可以在IBM Domino Notes中提取文档中的附件。我想有效地运行一个脚本，它将提取某些文档中的某些附件。我真的不知道从哪里开始：'（

Answer 1

如果你真的不知道从哪里开始，这里有一条经验法则：从谷歌而不是StackOverflow开始。

搜索字符串：lotus notes附件示例脚本

命中＃1指的是LCLSX。

忽略它。

Hit＃2是IBM帮助页面Working with attachments and embedded objects in LotusScript® classes

好的，这看起来很有希望。它带来了很多信息，但它是孤立的参考信息，而不是教程。但看！在页面底部！标有Examples: Working with attachments and embedded objects in LotusScript® classes的链接。

这几乎就是你所需要的。这就是从哪里开始的。

Answer 2

我的一般建议：
打开IBM Domino Designer Documentation并搜索您感兴趣的主题。

输入＆＃34;附件＆＃34;在这种情况下进入搜索字段，您将获得一个命中列表七个条目显示＆＃34; ExtractFile (NotesEmbeddedObject - LotusScript)＆＃34;。
您将找到如何提取附件的说明，包括本文档中的示例。

这是StackOverflow上的example。

Answer 3

有几种方法可以做到这一点。我将描述一个简单的。

假设currentDoc是当前文档（NotesDocument实例）。并假设该文档只有一个附件。

Dim commandResult As Variant
Dim attachedFileName As String

commandResult = Evaluate({@AttachmentNames}, currentDoc) 'getting attachment names
attachedFileName = commandResult(0) 'getting the first value from the list of attached names

if attachedFileName = "" then
   MsgBox "There's no attached file in this document", 64, "Note"
   Exit Sub
End If

Set attachedFileObject = currentDoc.Getattachment(attachedFileName) 'getting object with attached file
Call attachedFileObject.ExtractFile( {C:\Temp\} + attachedFileName) 'extracting file to the C:\Temp folder

如果您要分离所有文件，请迭代commandResult，其中包含所有附加文件的名称。

是否可以在IBM Domino Notes中提取文档中的附件

3 个答案: