Discussion :

[lva30]

Bonjour.

Voila mon petit problème.
Je souhaite mettre en place un agent qui, en tâche de fond, à chaque réception d'un mail d'un expéditeur spécifique avec un sujet de mail spécifique, détache la pièce jointe du mail dans un répertoire windoz.
Je me suis tourné vers lotusscript avec un superbe exemple issu du site ibm.
L'agent configuré en éxécution au menu fonctionne bien, mais si je le passe en éxécution par évènement "après l'érrivée du courrier", il ne fait rien du tout.
Ou pêches-je ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Initialize
    Dim doc As NotesDocument
    Dim rtitem As NotesRichTextItem
    Dim object As NotesEmbeddedObject
    Dim object2 As NotesEmbeddedObject
    Dim session As New NotesSession
    Dim mainpath As String
    Dim FirstFileName As String
    Dim ev, PathToFile
    
    Set doc=session.DocumentContext
    mainpath="\\serveur\Public\Info" 'drive folder used for saving the files

    ev=Evaluate("@AttachmentNames",doc)
    FirstFileName=ev(0) 'ev(1) to get second file, ev(2) to get third file
    If Dir(mainpath,16)="" Then MkDir mainpath
    PathToFile=mainpath+"\"+FirstFileName

    Set rtitem = doc.GetFirstItem( "transaction.xls" )
    If rtitem Is Nothing Then
        Set rtitem = New NotesRichTextItem( doc, "Body" )
    End If
    If ( rtitem.Type = RICHTEXT ) Then
        Set object = rtitem.GetEmbeddedObject( FirstFileName )
    End If
    If ( object Is Nothing ) Then
        Set object = doc.GetAttachment( FirstFileName )
    End If

    If object Is Nothing Then
        Exit Sub 'no attachment with that name
    End If

    Call object.ExtractFile(PathToFile )
    Call object.Remove 'remove to avoid multiple attachments with same name
    Call doc.Save( True, False)


    Set object2 = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", PathToFile)
    'Kill (PathToFile) 'remove the file from disk

    Call doc.Save( True, False )    
End Sub

[Zabriskir]

Bonjour,

Est-ce que votre service Domino dispose des bonnes permissions sur votre partage réseau ?

@+

[lva30]

Bonjour.

Oui c'est un partage sans restriction.
Mais je me demande : l'agent doit-il être placé ailleurs que sur une boite de messagerie ? genre à un niveau supérieur ?

En regardant l'historique sur le serveur, je vois des lignes :

AMgr: Agent ('Scell|Scell' in 'mail\mymailbox.nsf') error message: Object variable not set

Pourtant, si j’exécute cet agent en mode menu depuis mon client notes, il fonctionne bien et si je le test dans le designer il est ok... je piges pas.

[Michael.RHAN]

hello

ton agent bug en schédullé. piste possible

- tu utilises des NotesUIObject.
- le signataire n'a pas les droits

je te sugère d'insérer une gestion des erreurs dans ton code qui te renverra plus d'infos. un exemple ici => http://forum.dominoarea.org/viewtopic.php?f=49&t=12054