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

[deeeman]

Добрый день!
Есть задача переименовать в почтах сотрудниках папки,
делаю агентом:

Call fDoc.ReplaceItemValue("$TITLE", folderName)
Call fDoc.ReplaceItemValue("$Name", folderName)

Старые папки остаются, но создаются новые с новым именем
Что делать?

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

 

[erdi]

а какой тип у этих папок? что-то подсказывает что тип там приватный, а агент выполняется от твоего имени

 

[deeeman]

Обычная папка. Где посмотреть тип папки?

 

[savl]

@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

 

[deeeman]

@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]

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