IBM Colaboration Solutions (Lotus) on IBM DeveloperWorks
IBM Lotus Domino Messaging Server, IBM Lotus Domino Enterprise Server
IBM Lotus Domino Designer
IBM Lotus Domino Administrator
Soubory nsf (Notes Storage Format) v Lutus notes:
bookmarks.nsf … * naplanovane ukoly v kalendari
desktop8.ndf … * Workspace - odkazy na databaze
as_NAME.nsf … Autosave
busytime.nsf … prazdne
headline.nsf … Subscriptions, Odkaz na postu
localfeedcontent.nsf … rss kanaly?
log.nsf … aktivita lotus notes
names.nsf … * db vsech jmen, se kterymy se Lotus Notes setkal
perweb.nsf … asi bookmarky, historie atd Lotus Notes Browseru
Cache.NDK .. * automaticky se vytvori po startu notes - vsechna drive nactena data
desktop8.ndk … prazdne, asi nejake zalozky pro notes8
diagindex.dbf … odkaz na slozku s daty pro technickou podporu (v pripade padu notes8)
exec.dbf … odkaz na instalacni sloszku notes8
help.dir … odkaz na slozku s helpem
mail.box … odchozi slozka mailu
Ostatni dulezite soubory:
workspace/.metadata/* … * posledne otevrena okna
workspace/.config/org.eclipse.update … * soubor s licenci pri startu
workspace/.config/rcpinstall.properties … * soubor s licenci pri startu
pouziva se Vizual Basic. Create → Agent, nebo View → Agents
Dim Counter As Integer … (Dimension) definuje promennou Counter jako celociselnou promennou
Dim s As New NotesSession Dim ndb As NotesDatabase Dim uiws As New NotesUIWorkspace Dim doc As NotesDocument Dim v As NotesView
Messagebox “Canceled” … vyskoci hlaska s napisem “Canceled”
Dim uiws As New NotesUIWorkspace
… NotesUIWorkspace - objekt aktualniho pohledu v LotusNotes
serv=uiws.Prompt(PROMPT_OKCANCELEDIT, “Server”, “Type a name of the server, where the destination database is. If you want to copy documents into local server type explicit ”“local”“.”, “local”)
… nacte do promenne serv co zada uzivatel do okynka. 1 parametr - definice tlacitek, 2 parametr titulek okna, 3 parametr - co se uzivateli zobrazi, 4 parametr - vychozi volba
Priklad:
Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim ndb As NotesDatabase Dim uiws As New NotesUIWorkspace Dim doc As NotesDocument Dim ndoc As NotesDocument Dim v As NotesView Set db=s.CurrentDatabase serv=uiws.Prompt(PROMPT_OKCANCELEDIT, "Server", "Type a name of the server, where the destination database is. If you want to copy documents into local server type explicit ""local"".", "local") If serv="" Then Messagebox "Canceled" Exit Sub End If dbPath=uiws.Prompt(PROMPT_OKCANCELEDIT, "Database file", "Type a path to the database, where you want to store the documents. ", "archive/ibm02wrd.nsf") If dbPath="" Then Messagebox "Canceled" Exit Sub End If If serv="local" Then serv="" Set ndb=s.GetDatabase(serv, dbPath, False) If ndb Is Nothing Then Messagebox "Wrong database server or file path." Exit Sub End If Set v=db.GetView("AllButPerson") Set doc=v.GetFirstDocument Do While Not doc Is Nothing Set ndoc=doc.CopyToDatabase(ndb) Call ndoc.Save(True, False) Set doc=v.GetNextDocument(doc) Loop End Sub
Views:
Create → View, nebo Actions → View Options → Design