как читать "out Of Office" пользователю?

[Guest]

Привет всем.
Задача: надо прочитать "Out of Office" по пользователю из внешней проги в R8.
Пытался найти решение, но не смог, пожите кто чем может .

Василий

 

[morpheus]

ВасилийКаменев
нпрочитать на том же компе где и юзер. ?
"Out of Office" - это локейшен в клиенте или какойнить статус самтайма?

 

[Guest]

Не, это не на компе юзера. Пологаю это из обшей базы, но могу и ошибатся. Суть в том что, если юзер поставил "Out of Office", то биш свалил в отпус или ещё куда, то другая прога типа ERP, могла об этом узнать и не располагать этим пользователем как ресурсом, учётки в обоих (Lotus & ERP) одинаковы.

 

[Medevic]

Out of Office - это агент. Поэтому, наверное, достаточно проверить, включен ли он.
notesAgent.IsEnabled

 

[Guest]

Ну для себя, как создателя сессии, я могу это проверить, а вот как для пользователя N ?

Out of Office - это агент. Поэтому, наверное, достаточно проверить, включен ли он.
notesAgent.IsEnabled

Ну для себя, как создателя сессии, я могу это проверить, а вот как для пользователя N ?

 

[Medevic]

Почтовую базу пользователя ты получить можешь. Агента тоже.

 

[morpheus]

Почтовую базу пользователя ты получить можешь. Агента тоже.

это если БД почтовая на серваке

 

[Medevic]

это если БД почтовая на серваке

Если не ошибаюсь, то Out of Office работает только на серваке.

 

[Guest]

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

 

[morpheus]

ВасилийКаменев
ну и так и залазте в почтовую базу юзера ХХХ ( узнать файл базы можно в АК в карточке пользователя )
залезть в базу и "просмотреть" свойства агента

 

[Medevic]

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

Ну так почтовую базу юзера хххх1 ты получить можешь?
Потом - notesDatabase.GetAgent("OutOfOffice") и проверяешь как я написал выше.

 

[Guest]

Ну так почтовую базу юзера хххх1 ты получить можешь?
Потом - notesDatabase.GetAgent("OutOfOffice") и проверяешь как я написал выше.

залогится юзером ХХХХ я не могу, для этого я должен иметь все пароли, а их дофига, или я что-то не догоняю ?

 

[Medevic]

Логиниться не надо. Достаточно иметь права доступа к базе.

 

[morpheus]

ВасилийКаменев
2 возможностти

1. Надо просто быть админом, и/или иметь доступ к базам
2. Запускать агент на сервере

 

[Guest]

Логиниться не надо. Достаточно иметь права доступа к базе.

значит я должен открыть бд юзера ХХХ из под своего логина?

 

[morpheus]

ВасилийКаменев
да

 

[Medevic]

значит я должен открыть бд юзера ХХХ из под своего логина?

Как связаны другая прога типа ERP и R8 между собой?

 

[Guest]

Как связаны другая прога типа ERP и R8 между собой?

пока общего и них логины из Microsoft AD

извините за назойливость, но как я не кручу код , ни как не получается открыть др. юзера бд

session.Initialize ("password")
Set dbDir = session.GetDbDirectory("")
Dim maildb As NotesDatabase
Dim oof As NotesAgent
Set maildb = dbDir.OpenDatabase ' определённо эта строка дожна быть другой, но....?
Set oof = maildb.GetAgent("OutOfOffice")

 

[Sandr]

ВасилийКаменев
Ну, путь вы получаете из диррктори, а что потом сложного в открытии базы по путю?

 

[Guest]

ВасилийКаменев
Ну, путь вы получаете из диррктори, а что потом сложного в открытии базы по путю?

да база открывается, но она моя, и я не могу перейти на базу др. юзера , либо админ мне права не тее прописал ?!