Lotus Notes - Enviar correos a usuarios con un role asignado

Hola a todos,

Quiero enviar por medio de lotus script o por medio de funciones un correo a todos los usuarios definidos bajo un role en una aplicación lotus. ¿Alguien sabe cómo hacer ésto?

Muchas gracias,

Onofre

SeudoCodigo

Set oMensaje = New NotesDocument( oSession.CurrentDatabase )

With oMensaje
.SubJect = "Hola que tal"
....
.....
End With

Set oACL = oSession.CurrentDatabse.ACL
Set oAllEntrys = oACL.getAllEntrys

ForAll oEntry in oAllEntrys

If isHasRolSaludos( oEntry ) Then Call Mensaje.SendTo( oEntry.Nombre )

End ForAll

Function isHasRolSaludo( oEntry as Variant )

isHasRolSaludo = (Not isNull( ArrayGetIndex( oEntry.Roles , "[SALUDAR]" ) ))

End Function




Mirar NotesACL,NotesAclEntry y ArrayGetIndex