problème d'agent

[joola]

je convertis actuellement une base notes vers le web mais j'ai des problèmes avec mes agents. j'ai l'impression k'il ne s'excute pas. ds le webquerysave de mon masque j'utilise : @Command([ToolsRunMacro]; "(agent)")par contre il faut surement modifier le code de l'agent car il marche pour la version notes.code de l'agent:Sub Initialize Dim s As New Notessession Dim db As notesdatabase Dim vue As notesView Dim vue2 As notesView Dim doc As NotesDocument Dim doc3 As NotesDocument Dim workspace As New NotesUIWorkspace Dim doc2 As NotesUIDocument Dim a, numero As Integer Dim chaineDest As String Dim maildoc As notesdocument Dim richtext As notesrichtextitem ' Initialisation des variables Set db = s.currentdatabase Set vue = db.GetView("VFlashAGI") Set vue2 = db.GetView("VCollabActuel") Set doc2 = workspace.CurrentDocument Set maildoc = db.createdocument Set richtext = New notesrichtextitem(maildoc,"Body") 'recherche des destinataires Set doc=vue2.GetFirstDocument a=-1 ' Calcul du nombre de destinataires While Not(doc Is Nothing) If Left(doc.nom(0), 1)<>"*" Then a=a+1 End If Set doc=vue2.GetNextDocument(doc) Wend Set doc=vue2.GetFirstDocument' Création d'un tableau qui va contenir la liste des destinataires Redim destinataires(a) a=-1' On remplit le tableau des destinataires à l'aide de la vue VCollabActuel While Not(doc Is Nothing) If Left(doc.nom(0), 1)<>"*" Then a=a+1 destinataires(a)=doc.nom(0) End If Set doc=vue2.GetNextDocument(doc) Wend numero=0 Set doc3= vue.GetFirstDocument While Not doc3 Is Nothing numero=numero+1 Set doc3=vue.GetNextDocument(doc3) Wend numero=numero+1 maildoc.form = "Memo" sujet= "Flash AGI N° " + Cstr(numero) + " - "+ doc2.FieldGetText("Subject") sujet2= doc2.FieldGetText("FL_Commentaire") If (sujet="") Then Msgbox "Veuillez saisir le sujet de votre Flash." Elseif (sujet2="") Then Msgbox "Veuillez saisir le commentaire de votre Flash." Else maildoc.Subject= sujet Call doc2.FieldSetText("Subject", sujet) If doc2.FieldGetText("FL_Numero") = "" Then Call doc2.FieldSetText("FL_Numero", Cstr(numero)) End If Call doc2.FieldSetText("Etat", "1") richtext.Addnewline(3) richtext.Appendtext("Bonjour,") richtext.Addnewline(2) richtext.addTab(1) richtext.Appendtext("Ci-joint, un lien vers le flash. ") Call richtext.AppendDocLink( doc2.document, db.Title ) richtext.Addnewline(2) richtext.Appendtext("Bonne journée, Reporting AGI.") 'Call maildoc.send (True, destinataires) Call maildoc.send (True, "Vincent Guido") Call doc2.save Call doc2.close End IfEnd Subvoila, je vous remercie d'avance

[aurelien]

Salut,Dans ton agent tu manipules des objets NotesUIdocument.et NotesUIWorkspace.Tous les objets interfaces (NotesUI*) ne sont à utiliser uniquement pour les agents exécutés sur le client Notes.Pour une application Web, tous les agent sont exécutés sur le serveur.C’est pourquoi tu dois utiliser l’objet NotesDocument contrairement à l’objet NotesUIdocument.Pour initialiser celui-ci à partir de ton agent im Session As New NotesSessionDim doc As NotesDocument Set doc = Session.documentContext.Bon courrage,Aurélien

[joola]

merci bcp pour les renseignement