Lotus Notes - Boton en form enviado por email

 
Vista:

Boton en form enviado por email

Publicado por [email protected]@ (25 intervenciones) el 30/05/2007 16:22:46
Tengo una b.d. que envía invitaciones a juntas y registra la asistencia de cada uno de los participantes.

Lo que necesito es que al momento de enviar una notificación(una Form) de que se le está invitando a la junta, ¿como puedo modificar el documento' (apuntando al DOCUID de la Form de origen) en el cual se tienen todos los datos de la junta y que únicamente registre al usuario (modificando un FIELD en la Form de origen); adicionalmente necesito que se agende la junta en su Calendario; todo lo anteriormente comentado por medio de un botón.

Espero que me pueda ayudar alguien.

De antemano gracias.

Saludos!!!
p.d. tengo un código que envía una notificación al que genero la invitación a la junta de que el usuario confirma su asistencia a la misma.

Sub Click(Source As Button)
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim mail As NotesDocument
Dim ws As New NotesUIWorkspace
Dim item As NotesItem
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim user As String

Set db = session.currentdatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
If uidoc.EditMode = False Then
Call ws.EditDocument( True )
End If

'------------------------------------------
Dim usuario As NotesItem
Dim fechamod As NotesItem
Dim accion As NotesItem
Call doc.DOCUID(True)
doc.Form = "Captura_NuevoDoc"

Set mail = New NotesDocument (db)
mail.Subject =Chr(10)&Chr(13)&doc.Usuario2(0)&+" ha confirmado su asistencia a la junta - " + doc.Client(0)
mail.Form="SocioAudit"
Set acl = db.ACL
Set entry = acl.GetFirstEntry
Do Until (entry Is Nothing)
acceso=entry.roles(0)

Set entry = acl.GetNextEntry(entry)
Loop

Set item = doc.GetFirstItem( "DOCUID" )


Dim richStyle As NotesRichTextStyle

mail.Body= "Estimado(a) "&doc.Admon(0)& ": "&Chr(10)&Chr(13)&doc.Usuario2(0)&" "&_
" ha confirmado su asistencia asistencia a la junta "&doc.Client(0)&"."

Set item = Nothing
Msgbox("Su confirmación ha sido registrada.")

Dim workspace As New NotesUIWorkspace

Set uidoc = workspace.CurrentDocument
Call uidoc.Close(True)
End Sub
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