par DFDF » 22 Jan 2010 à 19:03
Bonsoir
Il n'y a pas la moindre trace dans la log
Je n'ai pas signé l'agent, il a été ecrit avec un ID ADMINISTRATEUR du serveur, c'est peut être la cause de mon souci
Pouvez vous m'indiquer la procédure de signature d'un agent
Ci dessous la copie du script,
Merci
DF
Sub Initialize
Const COMMA=","
Const SEP=|"|
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim dataview As NotesView
Dim doc As NotesDocument
Dim maxcols As Integer
Dim K As Integer
Dim entry As NotesViewEntry
Dim ColVals As Variant
Dim txt As String
Dim txt2 As String
Dim FileNum As Integer
Dim FileName As String
FileNum% = Freefile()
FileName$ = "C:\REP\MONEXPORT.TXT"
Set db = New NotesDatabase("MONSERVEUR","MABASE.NSF")
Set dataview = db.getview("MAVUE")
maxcols=dataview.ColumnCount
Close
Open filename$ For Output As FileNum%
Set doc=dataview.getfirstdocument()
For K=1 To maxcols
Set c=dataview.columns(K-1)
txt = txt +c.title + COMMA
Next K
Write #fileNum% , txt
txt= ""
Set vwnav= dataview.createViewnav()
Set entry=vwnav.GetFirstDocument
Do While Not (entry Is Nothing)
For cols=1 To maxcols
colvals=entry.ColumnValues(cols-1)
txt = txt + colvals + SEP + COMMA + SEP
Next Cols
Write #fileNum% , txt
TXT =""
Set entry=vwnav.GetnextDocument(entry)
Loop
Close fileNum%
Set db=Nothing
End Sub