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
Lotus Notes Client
Externi odkazy
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
Programovani Agentu
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
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3