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

[Dawood]

Bonjour,
j'ai recherché et trouvé dans les tips des éléments me permettant de créer un agent pour détacher/supprimer automatiquement les pièces jointes d'une BAL.
Sauf que rien ne marche et je suis un peu dans l'impasse. Voici le script que j'ai récupéré et éxécuté tel quel:
-------------------------------------------
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesUIView
Dim docs As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant
Dim askme As Integer
Dim user As NotesName
Dim rtnav As NotesRichTextNavigator
Dim onav As NotesEmbeddedObject
On Error Goto Errors
askme = ws.Prompt (PROMPT_YESNO,"Supprimer les fichiers attachés", "Vous êtes sur le point de supprimer tous les fichiers attachés des documents sélectionnés, voulez-vous vraiment continuer ?")
If askme = 1 Then
Set db = ws.CurrentDatabase.Database
Set view = ws.CurrentView
If Not( db Is Nothing ) Then
Set docs = db.Unprocesseddocuments
If Not( docs Is Nothing ) Then
If( docs.Count > 0 ) Then
Set user = New NotesName(db.Parent.UserName)
Set doc = docs.GetFirstDocument()
While Not( doc Is Nothing )
Set rtitem = doc.GetFirstItem( "Body" )
If Not( rtitem Is Nothing ) Then
If ( rtitem.Type = RICHTEXT ) Then
If( Isarray(rtitem.EmbeddedObjects) ) Then
Set rtnav = rtitem.CreateNavigator
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Set onav = rtnav.GetFirstElement(RTELEM_TYPE_FILEATTACHMENT)
If Not( onav Is Nothing ) Then
Call rtnav.SetPosition(onav)
Call rtitem.BeginInsert(rtnav)
Call rtitem.Appendtext(|[attachement "|+onav.Name+|" supprimé par |+user.Abbreviated+|]|)
Call rtitem.EndInsert()
Call o.Remove()
Call rtitem.Update()
End If
End If
End Forall
Call doc.Save( True, True )
End If
End If
Set rtitem = Nothing
End If
Set doc = docs.GetNextDocument(doc)
Wend
If Not( view Is Nothing ) Then
Call view.DeselectAll()
End If
Call ws.ViewRefresh()
End If
End If
End If
End If

ExitSub:
Exit Sub

Errors:
Dim errmsg As String
errmsg = "(Error #: " & Str(Err) & ") " & Error$
Print errmsg
Resume Next
End Sub
------------------------------------------------------------

résultat, pas d'erreur... rien le script ne fonctionne pas. est ce que cela peut être dû à une version de notes ? (v8.5 pour moi) j'ai juste "compilation du script en cours" dans la barre des tâches..
vu mon piètre niveau de dev..
merci de votre aide

[gouff]

Qu'as tu dans les propriété d'exécution de l'agent ?
regarde la cible : est ce "tous les documents sélectionnés" ?

[Dawood]

oui la cible est bien "tous les documents sélectionnés"...
en fait j'ai pas de msg d'erreur...

[gouff]

As tu remplacé le "Sub Click(Source As Button) " par initialise ?

[Dawood]

merci ! suis je bête...
je souhaite détacher la pj sur un repertoire réseau avant la suppression.
j'ai modifié le script de la façon suivante:
----------------------------------------------------------
Sub Initialize

Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesUIView
Dim docs As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant
Dim askme As Integer
Dim user As NotesName
Dim rtnav As NotesRichTextNavigator
Dim onav As NotesEmbeddedObject
Dim path As String

On Error Goto Errors
askme = ws.Prompt (PROMPT_YESNO,"Detacher les fichiers attachés", "Vous êtes sur le point de détacher tous les fichiers attachés des documents sélectionnés, voulez-vous vraiment continuer ?")
If askme = 1 Then
Set db = ws.CurrentDatabase.Database
Set view = ws.CurrentView
path = Inputbox ( "\\grensto1\public$\permanent\Maintenance du patrimoine et renouvellement\8-Autres docs\DPE\" ,db.Title, "")

If Trim(Path) = "" Then
path="c:\"
End If
If Right(Trim(path),1) <Then> 0 ) Then
Set user = New NotesName(db.Parent.UserName)
Set doc = docs.GetFirstDocument()
While Not( doc Is Nothing )
Set rtitem = doc.GetFirstItem( "Body" )
If Not( rtitem Is Nothing ) Then
If ( rtitem.Type = RICHTEXT ) Then
If( Isarray(rtitem.EmbeddedObjects) ) Then
Set rtnav = rtitem.CreateNavigator
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Msgbox path+onav.Name
Call o.ExtractFile(path+onav.Name)
Set onav = rtnav.GetFirstElement(RTELEM_TYPE_FILEATTACHMENT)
If Not( onav Is Nothing ) Then
Call rtnav.SetPosition(onav)
Call rtitem.BeginInsert(rtnav)
Call rtitem.Appendtext(|[attachement "|+onav.Name+|" supprimé par |+user.Abbreviated+|]|)
Call rtitem.EndInsert()
Call o.Remove()
Call rtitem.Update()
End If
End If
End Forall
Call doc.Save( True, True )
End If
End If
Set rtitem = Nothing
End If
Set doc = docs.GetNextDocument(doc)
Wend
If Not( view Is Nothing ) Then
Call view.DeselectAll()
End If
Call ws.ViewRefresh()
End If
End If
End If
End If

ExitSub:
Exit Sub

Errors:
Dim errmsg As String
errmsg = "(Error #: " & Str(Err) & ") " & Error$
Print errmsg
Resume Next
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 !"

End Sub
-----------------------------------------------------
il me valide bien le nom de fichier mais par contre ne réalise pas l'enregistrement du fichier sur le réseau (par contre le call.o.remove fonctionne bien...)
j'en appelle une fois de + à vos compétences....

[kochiz]

Bonjour,

Tu as bien le droit d'écriture sur la ressource réseau cible ?

[gouff]

Entre Grenoblois faut bien s'aider...

;°)

A mon avis il te manque un slash dans ton path. essaie de passer le code au debbuger, tu seras fixé

[kochiz]

Et puis les espaces dans les noms de répertoire c'est pas top quand même.

[Michael DELIQUE]

salut

tu peux tester l'existence (donc la bonne syntax) de ton répertoire avec cette fonction => http://forum.dominoarea.org/tester-lexi ... 12375.html

[Dawood]

merci pour la solidarité
le seul doute que j'ai sur le path c'est les 2 ou 3 antislash sur le nom de serveur
il me semble qu'en UNC on est bien:
\\nomdeserveur\partage\dossier
en tous cas quand je le mappe ou même exécution en DOS le dossier s'ouvre.
pour les droits y a pas de soucis non plus..
je vais tester ton lien Michael merci

PS: nom de répertoire bien indépendant de ma volonté. c'est un truc normé ISO chez nous, bref je n'ai pas le choix

[Michael DELIQUE]

pour l'unc c'est bien ça

\\nomdeserveur\partage\dossier

de toute facon si tu as un doute tu tape ton unc dans l'explorer s'il ouvre le répertoire c'est bon (hormis pb de droit d'acces)

[oguruma]

attention dans le passé... de mémoire.... sauf erreur.... Domino ne reconnaissait pas (ou pas très bien) les chemins UNC dans les codes LS... ou qq chose comme cela....

[Michael DELIQUE]

peut être en v4

mais en v5, v6 v7 pas de souci.

[oguruma]

Oui en effet c'était à cette époque... et je crois de mémoire en 4.5 (1998)

[JYR]

Un petit debug?

http://forum.dominoarea.org/supprimer-l ... 21633.html