【发布时间】:2020-05-05 11:13:51
【问题描述】:
我正在将文档从收件箱移动到自定义文件夹,它已成功移动,但仍显示在收件箱中。我想从收件箱中删除它。我在移动后尝试了 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
【问题讨论】:
标签: lotus-notes lotusscript domino-designer-eclipse