1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

Тема в разделе "Lotus - Программирование", создана пользователем deeeman, 18 авг 2015.

  1. deeeman

    deeeman Well-Known Member

    Репутация:
    0
    Регистрация:
    4 дек 2007
    Сообщения:
    383
    Симпатии:
    0
    Добрый день!
    Есть задача переименовать в почтах сотрудниках папки,
    делаю агентом:

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

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

    erdi Well-Known Member

    Репутация:
    0
    Регистрация:
    20 авг 2008
    Сообщения:
    265
    Симпатии:
    36
    а какой тип у этих папок? что-то подсказывает что тип там приватный, а агент выполняется от твоего имени
     
  3. deeeman

    deeeman Well-Known Member

    Репутация:
    0
    Регистрация:
    4 дек 2007
    Сообщения:
    383
    Симпатии:
    0
    Обычная папка. Где посмотреть тип папки?
     
  4. savl

    savl Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    28 окт 2011
    Сообщения:
    2.116
    Симпатии:
    157
    @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
     
  5. deeeman

    deeeman Well-Known Member

    Репутация:
    0
    Регистрация:
    4 дек 2007
    Сообщения:
    383
    Симпатии:
    0
    тож самое... создаются новые папки...
     
  6. savl

    savl Well-Known Member
    Lotus team

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

Поделиться этой страницей