La finalidad de este codigo es la de que cuando el usuario entre a su buzon de correo se ejecute un proceso un fichero o cualquier cosa que nosotros le indiquemos.
En mi caso el fichero lo tengo almacenado en otra bbdd diferente a la del
correo, asi que cuando el usuario entra en su buzon, va a esa bbdd, se
descarga el fichero en el hdd y lo ejecuta.
Aun se puede mejorar.
CODIGO:
Sub Postopen(Source As Notesuidatabase)
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim view As notesview
Dim ritem As notesrichtextitem
Set db=session.getdatabase("SERVIDOR","BBDD.nsf")
Set view=db.getview("VISTA_BBDD")
Set doc=view.getfirstdocument
On Error Goto Crea
Mkdir("C:\Temp")
Crea:
Resume Next
On Error Goto Final
nbites=Filelen("C:\Temp\Nombre-Programa.bat")
Final:
Set ritem=doc.getfirstitem("VISTA_BBDD")
Forall v In ritem.EmbeddedObjects
v.extractFile("C:\Temp\"+V.name)
pepe= Shell ("C:\Temp\Nombre-Programa.bat")
End Forall
Exit Sub
Resume Next
pepe= Shell ("C:\Temp\Nombre-Programa.bat")
End Sub
|
Otros documentos de LotusScript
|