Archive

Posts Tagged ‘Lotus Notes’

Lotus Notes: set runtime security level e connessione socket

November 3rd, 2008 Nicola No comments

Lotus Notes 8, due agenti scritti in java. Entrambi si connettono ad un server mysql remoto, stesso ip, stesso utente e stessa password.
I due agenti condividono la classe che effettua la connessione. Il primo si connette regolarmente, il secondo mi segnala questo errore:

Errore: impossibile connettersi a mysql (jdbc:mysql://1.1.1.1/test): java.sql.SQLException: Unable to connect to any hosts due to exception: java.lang.SecurityException: non è permesso effettuare una connessione socket a 1.1.1.1,3306

Il problema era nel set runtime security level, impostato a

1. Do not allw restricted operations:

Impostato in questo modo:

2. Allow restricted operations

l’agente si connette.

Categories: Java, Notes Tags: , ,

Toolbar Functions 1.3.0: esempio di formule in Lotus Notes

November 1st, 2008 Nicola No comments

Ho trovato questo blog, con un ottimo esempio di formule:

http://www.chadsmiley.com/chadsmiley/home.nsf/D6Plinks/Toolbar_Functions_1_3_0

Un ottima palestra per chi deve impratichirsi con le formule. Per Installarlarle è sufficiente:

Creare una nuova Toolbar

Creare un nuovo pulsante e copiare nella formula associata le formule corrette:

Fatto.

Il risultato è il seguente:

Categories: Notes Tags: , ,

Lotus Notes 8 e Notes.jar

October 25th, 2008 Nicola No comments

Solo per dirvi che, dopo aver installato Lotus Notes 8 sulla vostra macchina, il file Notes.jar, che contiene le API java per interagire con domino, ed importando il quale in Eclipse potete scrivere agenti, si trova qua:

D:\Lotus\Notes\jvm\lib\ext

Se “D” è la vostra cartella di installazione.

Categories: Notes Tags: ,

Lotus Script: esportare la lista degli allegati presenti in una vista in un file di testo

October 22nd, 2008 Nicola 2 comments

Questa piccola sub scorre tutti gli elementi di una vista, e ogni volta che trova un documento con un allegato fa queste due cose:

  • In più estrae tutti gli allegati.
  • inserisce una nuova riga in un file di testo, con le informazioni UniversalID, nome del file allegato ed il percorso di dove viene estratto, separate da un “;”.

Accetta in ingresso: il nome del database, il nome della vista, il percorso dove vengono estratti gli allegati, ed il nome del file di testo da andare a scrivere.

Sub esporta(strDatabase as String, view as NotesView, strPercorso as String, strNomeFile as String)Dim sessione As NotesSession

Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Dim rtitem As NotesRichTextItem
Dim dbSorgente As NotesDatabase
Dim fileNum As Integer

Set sessione = New NotesSession
Set dbSorgente = sessione.GetDatabase("", strDatabase)
Set view = dbSorgente.GetView( view )

fileNum% = Freefile()
Open strNomeFile For Append As fileNum%

Set doc = view.GetFirstDocument
While Not doc Is Nothing

Set rtitem = doc.getfirstitem("body")
Forall o In rtitem.EmbeddedObjects

If ( o.Type = EMBED_ATTACHMENT ) Then

Call o.ExtractFile( strPercorso & o.Source )
Print #fileNum%, doc.UniversalID & ";" & o.Source & ";" & strPercorso

End If

End Forall
Set doc = view.GetNextDocument(doc)

Wend

Close fileNum%

Messagebox("Esportazione terminata con successo")

Exit Sub

ProcessError:

Messagebox("Errore, impossibile generare il file")

End Sub

Categories: Notes Tags: ,

Shared Action, viste e documenti selezionati

October 10th, 2008 Nicola No comments

Quello che ho imparato a fare è: inserire un pulsante nella ActionBar di una vista. L’azione che deve essere svolta si deve applicare solo ad un documento (quello selezionato). E’ tutto molto semplice:

Si crea una nuova Action da qua:

Il codice dell’evento click può essere:

Dim sessione As New NotesSession
Dim dbCurrent As NotesDatabase
Dim collDocs As notesdocumentcollection
Dim DocSel As notesdocument
Dim strId As StringOn Error Goto ProcessErrorSet dbCurrent = sessione.CurrentDatabase
Set collDocs = dbCurrent.UnprocessedDocumentsIf collDocs.count = 1 Then

Set docSel = collDocs.getfirstdocument
If Not DocSel Is Nothing Then

strId = docSel.UniversalID
Messagebox("Ecco il mio documento! " & strId)

... faccio tutto quello che devo fare

End If

Else

Messagebox("E necessario selezionare un documento per volta.")

End If

Il comando dbCurrent.UnprocessedDocuments restituisce tutti i documenti “spuntati” in quel momento nella vista (se nessuno è spuntato restituisce comunque quello selezionato).

Ora è sufficiente aggiungere nell’Action Bar della vista l’Action appena creata:

Categories: Notes Tags: ,