Newsgroup: it.comp.appl.notes-domino
Titolo: doc.send [LUNGO]

Ho un semplice db in cui oltre a vari documenti di manualistica c'è una
vista domande e risposte.
Gli utenti hanno accesso in composizione proprio per poter scrivere le
domande. La cosa funziona.
Ora mi è venuta la bella idea di fare in modo che quando un utente fa una
domanda mi venga spedito un promemoria nel mio db di posta. E quando io
rispondo venga spedito all'utente un analogo messaggio all'autore della
domanda.
La cosa è abbastanza semplice. Non ho messo in piedi agenti, ma l'ho fatto
con il postsave scopiazzando di qua e di la.
In fase di test quando io posto una domanda il memo mi arriva bello come il
sole. Lo stesso quando posto la risposta.
In pratica quando un utente salva una domanda a me non arriva nessun memo.
Mentre quando io rispondo a lui il memo arriva.
Pensavo fosse un problema di LCA. ho dato agli utenti la gestione e i ruoli,
ma nulla.
Pensavo fosse una limitazione a eseguire script, ma sul server gli utenti
sono abilitati ad eseguire LS.
Ora penso che sia xchè gli utenti usano client 4.5, mentre io uso 5.0.4. Se
l'intuizione è giusta come faccio a far funzionare la cosa sui client 4.5?
Se l'intuizione non è giusta: dove sbaglio?
Se qualcuno ha voglia di leggersi qualche riga di LS vi allego il codice.
GRAZIE, Luka
Modulo Domanda:
Sub Postsave(Source As Notesuidocument)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim doc As NotesDocument
' definisce il db
 Set db = session.CurrentDatabase
 'crea un nuovo doc nel db
 Set doc = New NotesDocument( db )
 'setta il form del nuovo doc come Memo
 doc.Form = "Memo"
' setta l'oggetto del memo
 doc.Subject = "Domanda: "+uidoc.FieldGetText( "Subject" )
 'cripta il memo
 'doc.EncryptOnSend = True
' setta il testo del memo
 doc.Body = "C'è una nuova domanda di "+uidoc.FieldGetText( "tmpFrom" )+"
nel database " + db.Title
' spedisce il memo
 Call doc.Send( False, "LUKA")
End Sub
Modulo Risposta:
Sub Postsave(Source As Notesuidocument)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim doc As NotesDocument
' definisce il db
 Set db = session.CurrentDatabase
 'crea un nuovo doc nel db
 Set doc = New NotesDocument( db )
 'setta il form del nuovo doc come Memo
 doc.Form = "Memo"
' setta l'oggetto del memo
 doc.Subject = "Risposta: "+uidoc.FieldGetText( "Subject" )
 'cripta il memo
 'doc.EncryptOnSend = True
' setta il testo del memo
 doc.Body = "C'è una nuova risposta di "+uidoc.FieldGetText( "tmpFrom" )+"
nel database " + db.Title
' spedisce il memo
 Call doc.Send (False, uidoc.FieldGetText( "tmpAut" ))
End Sub

GRAZIE, Luka
Io ho modo di pensare che la 5.04 sulle funzioni in exit o uscita e
compagnia non vada molto bene anche se il problema e' il contrario.
Ma mettere almeno la 4.6x e' un problema?
E' aggggratisssssss se hai una licenza < 4.6.
Ciao.
-- 
Zio Ciano.

 Zio Ciano.
Spero di passare presto a Rnext scavalcando la 5... quando ci decideremo a
buttare un po' P100 che abbiamo in giro... e anche NT4...
Non ho mai avuto il tempo di studiare come aggiornare i client senza andarci
di persona... e ne ho circa 200 sparpagliati per la provincia... (e alcuni
anche fuori)... ecco xchè tengo duro... (oltre a tanti altri motivi)
Sulle funzioni di uscita ho notato che ogni tanto se usi il designer in
italiano ti converte le funzioni, ma invece di sostituirle le aggiunge x cui
uscita non è exit, ma sono due funzioni distinte.... bellissimo...(!)
Ciao, Luka
(xò non mi hai aiutato) ;-(((

(x? non mi hai aiutato) ;-(((
Perche' non lo so se il problema e' la 4.5 o altro... fai una prova con la
4.6 e poi vedi.
Ciao.
-- 
Zio Ciano.

 Zio Ciano.
In effetti con la 5 funziona anche con gli altri utenti! Azz.... allora devo
trovare il modo di scrivere un codice che vada bene anche con la 4.5...
($azz/%$%/(porc/!"%£%putt/&"vacc£)(/"!eva%&/%tro/&&/%)...
Grazie, Ciao.