Послать письмо роли

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#1
Скажите, можно ли отправить письмо роли ?
Т.е. в поле SendTo написать, например "[Creator]". И оно отошлется всем, кто имеет роль [Creator].
Мне кажется, я это в хелпе прочел. Хотя не уверен уже.
 
G

Gogan.exe

Гость
#2
У каждой базы есть свой набор ролей. Почта это отдельная база. Думаю, что так не выйдет. Если же ты посылаешь письмо из самой базы, возможно такая функция и есть.
 
A

Afrael

Гость
#3
тебе необходимо получить список людей имеющих эту роль и отравить письмо уже вот этим людям .....
примерно следующим образом.

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim roleName As String
Dim foundRole As Variant
Set uidoc = workspace.CurrentDocument
Set db = session.CurrentDatabase
Set acl = db.ACL
roleName = Inputbox$( "Enter the name of the role" ) ' получаем название роли у пользователя
' добавляем квадратные скобки
roleName = "[" & roleName & "]"
foundRole = False
' проверяем ее существование в АСЛ
Forall r In acl.Roles
If ( r = roleName ) Then
foundRole = True
Exit Forall
End If
End Forall
If NOT foundRole Then
Messagebox _
( "Роли , " & roleName & " не существует" )
Else
Set entry = acl.GetFirstEntry
While Not ( entry Is Nothing )
If entry.IsRoleEnabled( roleName ) Then
Call uidoc.FieldAppendText _
( "SendTo ", entry.Name & ";" )
End If
Set entry = acl.GetNextEntry( entry )
Wend
End If
Call uidoc.Refresh

' в поле SendTo получилинеобходимый список
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#4
Afrael, спасибо за пример. Хотя это было не обязательно.
Похоже, ролям слать нельзя. Т.е. надо вручную проверять наличие роли.
Интересно то, что если я себе поставлю роль и отошлю письмо этой роли, то мне приходит письмо. А вот с другим человеком так не работает. Вот это и ввело в заблужение.