如何从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

您的代码绝对可以，但是您需要提供文件夹的“真实”名称。只需签入设计器即可：在设计器中，客户端中名为“ Inbox”的文件夹的名称为“（$ Inbox）”。您的代码需要使用该代码：

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