Lotus Notes - Lotus Script. Enviar doc y link con el send.

   
Vista:

Lotus Script. Enviar doc y link con el send.

Publicado por Ezan (26 intervenciones) el 15/09/2008 18:05:38
Mi problema es el siguiente. Quiero enviar un enlace de documento a un usuario cuando pulsen un boton. Pero lo que me hace es enviar el correo y incluir el documento junto con los anexos que el documento tenga. Yo solo quiero que le envie un enlace nada más. Os pongo el codigo haber si me hechais un poco de luz:

Sub Click(Source As Button)
Dim docActual As NotesUIDocument 'documento actual
Dim ws As New NotesUIWorkspace 'Nuestra area de trabajo
Dim body As NotesRichTextItem
Dim docPerfil As NotesDocument
Dim BDA As NotesDatabase
Dim sesion As New NotesSession

Set BDA=sesion.GetDatabase("servidor","noticias.nsf")
Set docPerfil = BDA.GetProfileDocument("administracion")
Set docActual=ws.CurrentDocument
docActual.Document.Form="LNoticia"
docActual.Document.estado=11
Call docActual.Document.Save(True,False)
docActual.Document.Form="NNoticia"
Set body= New NotesRichTextItem( docActual.Document, "Body" )
docActual.Document.Subject ="[" & docPerfil.GetItemValue("nombreAplicacion")(0) & "]: Tiene un documento de tipo noticia Aprobada"
Call body.AppendText("La oportunidad (' "+docActual.Document.GetItemValue("tituloNoticia")(0)+" '), ha sido aprobada")
Call body.AddNewline(1)
Call body.AppendText(" para acceder a la misma pulse el siguiente enlace: ")
Call body.AppendDocLink( docActual.Document, "enlace")
docActual.Document.Send(False)
Call ws.ViewRefresh()
Messagebox "Noticia APROBADA, puede acceder a ella desde Noticias/Aprobadas. El creador ha sido avisado.",0+64,"Información"
docActual.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

RE:Lotus Script. Enviar doc y link con el send.

Publicado por armando (58 intervenciones) el 16/09/2008 10:36:50
ndAct es el documento actual
nd es el documento en el cual se realiza el link del documento actual.

Set Anexosaji = ndAct.CreateRichTextItem( "Anexosaj1" )
Call Anexosaji.AppendText( lite + ". Click en el icono---> " )
Call Anexosaji.AppendDocLink( nd, ndAct.REF(0) )

Espero que te ayude.
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

RE:Lotus Script. Enviar doc y link con el send.

Publicado por Hugo Correa (286 intervenciones) el 17/09/2008 23:08:15
Utilizando formulas:
usuario="nombre@dominio.com"
@MailSend(usuario;"";"";"Titulo que aparece en el inbox" ";""; "Texto que aparece dentro del correo: " + @Text(usuario) +" enviado por " + @Name([CN]; @UserName) + " el " + @Text(@Today) + " " + @Text(@Time(@Now))+" ---> ";[IncludeDoclink]);

Utilizando LotusScript:

Dim NS As New NOTESSESSION
Dim Doc As NotesDocument
Dim BD As NotesDatabase
Dim session As New Notessession
Dim uidoc As notesuidocument
Set uidoc = nuiw.currentdocument
Set doc = uidoc.document
Dim basedatos As notesdatabase
Set basedatos = session.currentdatabase
Dim mensaje As notesdocument
Set mensaje = basedatos.createdocument
Dim cuerpo As notesrichtextitem
mensaje.form="Memo"
mensaje.from="Nombre_from"
mensaje.subject="Titulo"
mensaje.sendto="usuario@dominio.com"
mensaje.copyto=""
mensaje.BlindCopyTo=""
Set cuerpo=mensaje.createrichtextitem("Body")
Call cuerpo.appendtext("texto del correo "+(nuid.fieldgettext( "usuario") + " " +nuid.fieldgettext ("usuario")))
Call cuerpo.addnewline(2) 'Salta 2 lineas
Call cuerpo.appenddoclink(doc, "Link del documento")
Call cuerpo.addnewline(2)
Call mensaje.send(False)
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