Переименовать папки в почте

deeeman

Well-known member
04.12.2007
383
0
#1
Добрый день!
Есть задача переименовать в почтах сотрудниках папки,
делаю агентом:

Код:
Call fDoc.ReplaceItemValue("$TITLE", folderName)
Call fDoc.ReplaceItemValue("$Name", folderName)
Старые папки остаются, но создаются новые с новым именем
Что делать?

Не иначе как создавать папку, переносить туда письма из старой папки и удалять старую папку?
Подругому никак?
И как кстати переносить письма из папки в папку?
 

erdi

Well-known member
20.08.2008
265
17
#2
а какой тип у этих папок? что-то подсказывает что тип там приватный, а агент выполняется от твоего имени
 

savl

Lotus team
28.10.2011
2 136
105
#4
@deeeman, а если так:
Код:
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim newName As String
Set db = s.CurrentDatabase
Set view = db.GetView()
view.Name = newName
проверять папка или нет можно так: notesView .IsFolder
 

savl

Lotus team
28.10.2011
2 136
105
#6
@deeeman, SPFU папки...
Становятся приватными после сохранения, то есть сам документ дизайна не может сохраниться.
Это просто шаблон, переименовать его можно в дизайнере.
У таких папок в дизайнере отображается значок ключа.
А программно, думаю выгрузка в dxl, переименование в файле и загрузка обратно.
Вот это должно помочь, но надо пробовать.