Lotus Notes - Enviar correos a usuarios con un role asignado

   
Vista:

Enviar correos a usuarios con un role asignado

Publicado por Onofre (1 intervención) el 21/02/2011 13:10:26
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Enviar correos a usuarios con un role asignado

Publicado por ElLobo (53 intervenciones) el 23/02/2012 17:04:18
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar