Hola mira he cambiado de táctica
Soy Cesar, pues he cambiado de táctica y ahora me da un error que es este "couldn't get default view id for database bdl_borrad.nsf" y claro lo da en la linea del appenddoclink y es que me rompo la cabeza pensando y no lo entiendo e! Que puede ser o que truco le puedo añadir para que me funcione
Sub Email1
Dim session As New NotesSession
Dim datetime As New NotesDateTime("01/01/1000")
Set db = session.CurrentDatabase
Set docv = db.CreateDocument
Set rtitem = New NotesRichTextItem(docv, "Body" )
Call rtitem.AppendText("Se ha recibido un nuevo documento")
Call rtitem.AppendDocLink(docn, "Pulse para ir al documento recibido" )
docv.Form="Memo"
docv.Subject = "Nuevo documento recibido para su aprobación"
docv.SendTo = "Cesar Guerrero"
docv.Send(True )
End Sub
Sub Email1
Dim session As New NotesSession
Dim datetime As New NotesDateTime("01/01/1000")
Set db = session.CurrentDatabase
Set docv = db.CreateDocument
Set rtitem = New NotesRichTextItem(docv, "Body" )
Call rtitem.AppendText("Se ha recibido un nuevo documento")
Call rtitem.AppendDocLink(docn, "Pulse para ir al documento recibido" )
docv.Form="Memo"
docv.Subject = "Nuevo documento recibido para su aprobación"
docv.SendTo = "Cesar Guerrero"
docv.Send(True )
End Sub
Respuesta de roccorocco
1