 |
 |
Submitted by Toma Bogdan on 10/05/2002.
 | |
 |
Many thanks to Claudia (cboeira@trensurb.com.br) !!!
See below:
=========================================================
'Agente para ler a base NSF e gravar em CD-ROM
Agent to read a NSF database and record it in CD-ROM
'Criterios => recebe data de referencia (com imputbox)
An INPUTBOX is used to receive an "date" field
' gera um archive até a capacidade do CD-ROM (assumi 600 MB por padrão)
An archive is generate until 600 MB (CD-ROM capacity)
' Caso exista mais notas para arquivar, será aberto outra NSF automaticamente
If you need more space other NSF will be open automatically
' Obs.. => Esse agente é para ser executado pelo próprio usuário (dono da NSF) - Fica
' disponivel no menu de Ações.
Note: This agent must be executed by own user - Is available in ACTION menu.
' => o usuário precisa de autorização para criar base no Servidor
The user must be authorized to create a new database in the Domino Server
' => Crie um diretorio chamado Archive debaixo do Lotus\Domino\Data e conceda acesso a todos
You have to create a new Folder called ARCHIVE in Lotus\Domino\Data and give access to everyone
Deseja arquivar suas Notas antigas em CD-ROM? (Após a cópia elas serão eliminadas da sua caixa atual) ", BoxType&, "Arquivando em CD-ROM"
Do you like archive your old messages in CD-ROM? (After the copy they´re will be deleted from your mailbox)
Quero arquivar minhas notas até a data (dd/mm/yyyy)=> " ,"Arquivando em CD-ROM"))
I think now is the answer: "Do you like arquive your messages until date (dd/mm/yyyy)" "in CD-ROM arquive"
É necessário informar uma data", "Arquivando em CD-ROM"
You have to enter a date
Ainda não há necessidade de arquivar sua caixa de correio ", "Arquivando em CD-ROM"
'Se o tamanho da Base de backup ultrapassar 600 MB
'será fechado o primeiro archive e automaticamente abre outro
If the size will be excceded a new database will be generate automatically
'===========Preparando para ler em CD-ROM============
NemProgressSetText hwnd, "Arquivar Notas em CD-ROM...", "Liberando para ler em CD..."
Set ArchiveDb = New NotesDatabase( ArchiveServer$, ArchiveFile$ )
Set m_session = New notessession
Set m_calprofile = ArchiveDb.GetProfileDocument("CalendarProfile")
'=======================================================================
' These strings of code had been extragone here of the proper one Notice
' client Notes when it tries to open a NSF asks if he has an item
' called OWNER, as the NSF in CD-ROM is new this item does not exist
' then results in that message saying that the archive is only reading,
' why in this hour the Client wants to record its username as OWNER of the Base.
' What I made I was an anticipation of the fact, or either I soon record the item with the current username
' (the owner of the current base - that he will be also the owner of the Backup in CD-ROM) and it close
' the base of the CD-ROM already with the OWNER.
"Arquivar Notas em CD-ROM...", "Liberando para ler em CD..."
Messagebox "A cópia das Notas antigas foi realizada. Favor abrir SSI para proceder a geração do CD-ROM ", MB_OK , "Arquivando em CD-ROM"
"The copy was OK. You need to open SSI (I don´t know what is SSI) to continue the record.
'Nesse momento a base foi gravada no Servidor.
In this moment the copy was recorded in the Server.
'O usuário vai solicitar ao Suporte para gravar a base em CD-ROM.
The user will be ask to Support to record a database in CD.
"Não há documentos que satisfaçam as condições", "Arquivando em CD-ROM" |
Go back |
| |
|