Gérer automatiquement pièce jointe d'un message

[Dawood]

donc mon chemin est bon, je n'ai pas d'erreur sur le deboguer sur le path,
par contre j'ai celle ci:
(Error #: 91) Object variable not set
je ne sais pas comment l'interprêter car peu expérimenté en LS...
JYR>effectivement il s'agit de ce script...

[kochiz]

Donc à la ligne 91 tu as une variable non instanciée.

[Dawood]

si seulement j'avais une ligne 91..
mon script fait 82 lignes, ou alors il compte des boucles ?
je patauge.. d'autant qu'il me semble avoir déclaré ttes mes variables...

[Michael DELIQUE]

c'est pas un pb de déclaration mais d'instanciation

et remplace ton code d'affichage d'erreur par celui-ci

Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"

[kochiz]

Quand tu débugges tu as cette erreur, quand tu cliques sur ok (en debug) tu restes sur la ligne qui plante ...

[Dawood]

alors:
quand j'execute pas à pas il va bien au bout du script et en sortie m'affiche 2 fois cette erreur: (Error #: 91) Object variable not set
michael> malgré la modif du code affichage erreur.. toujours le même code erreur.
j'arrive pas à comprendre.

[Michael DELIQUE]

tu ne vois pas quelle est l'objet qui n'est pas instancié en pas a pas ?

[gouff]

Commentes provisoirement le "on error goto error" tu verras quel objet n'est pas instancié

[Dawood]

alors...
visiblement c'est cette ligne là qui pose pb:

Set db = ws.CurrentDatabase.Database
il me met une dialbox: ObjectVariable not set
gouff> j'ai bien passé le goto error en commentaires...

[oguruma]

Mouai j'ai compris
c'est un agent serveur qui fonctionne en mdoe "batch" c'est bien cela... ?

bahhhhh regarde ce qui est autorisé comme classe en mode agent batch serveur et tu comprendras vite ton erreur

un peu de recherche ça aide pour la suite et on ne s'y plus prendre (c'est comme cela que j'ai appris à débogguer

je crois que ton code doit planter dès le début c'est bien ce que je pense....


allez une piste : passes par NotesSession ça va résoudre tes PB

[oguruma]

enfin si tu déboggue ton agent avec un client il est normal qu'il ne renvoie pas les mêmes erreurs car le contexte d'exécution est différent

et cela brouille les pistes de recherche (cf. les UI classes)
--> je pense que tout est dit pour la résolution du pb

si tu as la log du serveur tu devrai en connaître plus sur le sujet car elle doit devrait te donner plus d'indications


ne pas mettre en commentaire la gestion des erreurs - elle devrait t'aider dans la lag du serveur si le msg est imprimé correctement

[Dawood]

là je suis carrément en limite de compétence.
je fais très peu de LS je dirais que c'est à la marge.. je suis plutôt teinté admin.
je pensais pouvoir mettre en oeuvre les tips + simplement..
je vais donc continuer à creuser

[gouff]

Allez, vu que c'est vendredi et qu'il faut boucler les sujets de la semaine:

- Tu déclares :

Dim s as new notessession

et tu

Set db=s.currentdatabase

Ça devrait résoudre ton pb...

[Dawood]

hello,
après un week end réparateur...
pas mieux malgré les 2 cmd de gouff...
je suis reparti d'un script donné dans l'aide designer... pas mieux

Sub Initialize

Dim session As New notessession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer

Const MAX = 100000
fileCount = 0
'...set value of doc...
Set view = db.GetView("$All")
Set db = session.CurrentDatabase
Set doc = view.GetFirstDocument()
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) _
And ( o.FileSize > MAX ) Then
fileCount = fileCount + 1
Call o.ExtractFile _
( "\\grensto1\public$\permanent\Maintenance du patrimoine et renouvellement\8-Autres docs\DPE\newfile" & Cstr(fileCount) )
Call o.Remove
Call doc.Save( True, True )
End If
End Forall
End If
End Sub

[Domino77]

Là déjà je vois un petit soucis dans ton code :
Set view = db.GetView("$All")
Set db = session.CurrentDatabase

Tu déclares ta db après la vue alors que tu en as besoin.

Ensuite ton code ne marchera que sur un doc mais bref...

Donc corriges la première erreur, passe en debug en pas à pas et dis moi si tu as une erreur, laquelle et à quelle ligne.