Как удалить документ после перемещения из почтового ящика в скрипте лотоса?

Question

Я перемещаю документ из папки «Входящие» в пользовательскую папку, он успешно перемещается, но по-прежнему отображается в папке «Входящие». Я хочу удалить его из почтового ящика. Я попробовал сделать c .RemoveFromFolder ("Входящие") после перемещения, но у меня это не сработало. Вот мой код:

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)» в дизайнере. Ваш код должен использовать это:

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