Récupérer la valeur du champs dans une variable

[clementbp]

Bonjour.

J'ai encore un problème en lotus script

J'essaye dans mon agent que j'exécute par un bouton d'action depuis une vue, de récupérer dans une variable la valeur d'un champs spécifique du document qui est selectionné depuis la vue.

Et la impossible je n'y arrive pas pourriez vous m'aider s'il vous plait :

Voici le code que j'ai créer :

Dim Document As NotesDocument
Dim uidoc As NotesDocument
Set uidoc = Document.CurrentDocument 'à mon avis j'ai un problème ici
Dim Item As NotesItem
Set Item = uidoc.GetFirstItem( "IDDocument" )
Dim Valeur As String
Valeur = Item.Values

[mike76]

Code : Tout sélectionner

dim ws as New NotesUIWorkspace
dim uidoc as NotesUIDocument
dim valeur as String

set uidoc=ws.CurrentDocument
valeur=uidoc.FieldGetText("IDDocument")

[Michael DELIQUE]

salut

mike c'est agent, tu est sûr qu'un code frontale (UI) va fonctionné dans ce cas ?

[clementbp]

Ce code ne fonctionne pas, il me marque qu'il est impossible de localisé le champ.

Désolé

[Michael DELIQUE]

re,

passe par un code en back dans ton agent,

pour récupéré les document sélectionné :

Set notesDocumentCollection = notesDatabase.UnprocessedDocuments

en plus dans otn code tu passe un tableau Item.values dans un string ça va pas marché !

[mike76]

effectivement j'avais lu le mail en diagonale donc je n'avais pas fait gaffe que c'était dans le cadre d'un agent, je pensais que c'était directement dans le document
ça m'apprendra à vouloir être trop rapide !!!

[Michael DELIQUE]

essais un truc dans ce genre

Code : Tout sélectionner

Dim Session As New NotesSession
   Dim DB As NotesDatabase
   Dim Collection As NotesDocumentCollection
   Dim Document As NotesDocument
   Dim Item As NotesItem
   Dim Valeur As String
   
   Set DB = Session.CurrentDatabase
   Set Collection = DB.UnprocessedDocuments
   If Not Collection Is Nothing Then
      If Collection.Count > 0 Then
         Set Document = Collection.GetFirstDocument
         Set Item = Document.GetFirstItem("IDDocument")
         valeur = Item.Text
      End If
   End If

[clementbp]

C'est parfait ça fait exactement ce que je voulais.
Merci beaucoup de votre aide.
Ca a l'air tellement simple quand on voit le temps que tu peux mettre alors que moi je galère comme un fou pour essayer de comprendre les bouts de code de l'aide et du forum.

Merci encore et à bientot

[Michael DELIQUE]

re
ne t'en fait pas on a tous galérés (et on galère encore tous par moment)