从 Lotus 脚本中的收件箱移动后如何删除文档？

Question

我正在将一个文档从收件箱移动到一个自定义文件夹，它移动成功但它仍然出现在收件箱中。我想将其从收件箱中删除。搬家后我尝试了 doc.RemoveFromFolder("Inbox") 但它对我不起作用。这是我的代码：

Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument

Call doc.PutInFolder("Reported Emails")
Call doc.RemoveFromFolder("Inbox")

End Sub

Answer 1

您的代码完全没问题，但您需要提供文件夹的 "real" 名称。只需签入您的设计器：在您的客户端中标题为 "Inbox" 的文件夹的名称在设计器中名为“($Inbox)”。您的代码需要使用它：

Call doc.RemoveFromFolder("($Inbox)")