Lotus Notes - putInFolder Method()

   
Vista:

putInFolder Method()

Publicado por Noel Reyes (6 intervenciones) el 02/06/2009 20:16:46
Les platico rapidamente tengo que hacer un agente en LotusScript el cual corra sobre la BD de correo de cualquier persona en la organizacion..Este agente se encarga de separa los correos por año y asu vez dejarlos con la misma estructura es decir tal cual estan en la base de datos de corre de usuario.. para esto.. primero creo un template de la base de datos del usuario (para traerme toda la estructura de las carpetas) despues identifico el primer documento de la BD trabajando con la vista ($All) y creo las BD apartir de ese año hasta el año en curso usando el template antes creado.. despues de esto solo era cuestion de volver a recorrer los documentos e ir arrojandolos a su respectiva BD de datos.. pero el problema es que no encajo una con el metodo putInFolder,, si alguien me pudiera hechar la mano estaria perfecto les dejo el codigo con el que estoy trabajando para acomodar los docs..

'Barrido de Documentos y llenado de BD
Set view = DBActual.GetView("($All)" )
Set vc = view.AllEntries
Set docEntry = vc.GetFirstEntry()


While Not(docEntry Is Nothing)
Set docBk = docEntry.Document


If docBk.PostedDate(0)<>"" Then
Nombre$=Cstr(Year(docBk.PostedDate(0)))
End If



'Folder en el que estan (USUARIO)
folder = docBK.FolderReferences(0)



' Abro DB en base al año
Set dbresp = SessionTrans.GetDatabase( "", "archive" & Nombre$ & ".nsf")



' Habilito el Folder References en la BD donde vaciare los docs
If(dbresp.FolderReferencesEnabled) Then
Else
dbresp.FolderReferencesEnabled = True
End If




Set docresp = dbresp.CreateDocument ' Creo el doc en bd2

Set docresp = docEntry.Document 'lo igualo al documento que traego de db1

Call docresp.PutInFolder(folder) ' lo meto en el folder que calcule en la parte de arriba

Call docresp.copytodatabase(dbresp) ' y copio a la BD2


a = a +1
Print "Documentos copiados: " & a
Set docEntry = vc.GetNextEntry(docEntry)
Wend

End Sub


Si alguien me pudiera hechar la mano se los agradeceria...
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