DominoArea.org [Archive]

par **jfarissi** » 09 Oct 2009 à 12:02

Bonjour,

j'ai creé un agent de s'executer a 01:00 sur le serveur pour envoyer un mail de relance mais l'agent ça marche pas a 01:00.

mais lorsque je fais click droit Run ça marche

une idée ??

Merci

Site internet · par **Michael DELIQUE** » 09 Oct 2009 à 12:05

salut

tu as bien vérifié les droit du signataire de l'agent ?

tu utilises des objet en NotesUI ?

ya des erreur dans la base de log ?

par **jfarissi** » 09 Oct 2009 à 12:34

pas de NotesUI.
tu as bien vérifié les droit du signataire de l'agent ? je ne suis pas admin
ya des erreur dans la base de log ? comment?

Site internet · par **Michael DELIQUE** » 09 Oct 2009 à 12:36

pour le signataire rapproche toi de l'admin

pour les erreurs faut aller chercher dans la base log.nsf voir si au jour et a l'heure ou ton agent doit tourner ya pas d'erreur

par **jfarissi** » 09 Oct 2009 à 12:40

pour log.nsf pas de trace d'execution de l'agent ?

Site internet · par **Michael DELIQUE** » 09 Oct 2009 à 12:41

alors rajoute en dans ton agent

un petit msgbox en début et en fin !

ya une gestion des erreurs dans ton agent ?

et puis si le code est pas monstrueux j'aimerais bien y jeter un oeil

par **jfarissi** » 09 Oct 2009 à 12:48

Sub Initialize
Dim session As New notessession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim item As notesitem
Set uidoc = workspace.CurrentDocument
Dim subject As String, bodytext As String, linkmsg As String, ordernum As String, recipient As String,NumeroContrat As String
Dim database As NotesDatabase
Dim doc,doc1 As NotesDocument
Dim collection As NotesDocumentCollection
Dim view As notesview
Dim mdate1V , mdate2V As Variant

Set database = session.currentdatabase
Set view = database.getview("vNum")
Set doc = view.getfirstdocument
Do While Not(doc Is Nothing)

Set mdate1V = New notesdatetime(doc.Date_Alerte(0))
Set mdate2V = New notesdatetime(Now)
If mdate1V.Timedifference(mdate2V) = 0 Then
'Messagebox Cstr(Format(Now,"dd/mm/yyyy"))
NumeroContrat = doc.Numero_Contrat(0)
subject = "Relance Contrat (" & NumeroContrat & ")"
bodytext = " Une relance a été prevue pour le contrat (" & NumeroContrat & ") a la date du ("& doc.Date_Alerte(0) &")"
linkmsg = "Lien du contrat #" & NumeroContrat
recipient = doc.RC(0)
Call sendMail(subject, bodytext, recipient, doc, linkmsg)
End If
Set doc=view.getnextdocument(doc)
Loop
End Sub

Site internet · par **Michael DELIQUE** » 09 Oct 2009 à 12:50

Dim workspace As New NotesUIWorkspace

présence d'un objet en NotesUI !

par **jfarissi** » 09 Oct 2009 à 12:57

il n'est pas utilisée

par **mike76** » 09 Oct 2009 à 12:58

pourquoi tu l'instancies s'il n'est pas utilisé

Site internet · par **Michael DELIQUE** » 09 Oct 2009 à 12:58

il est instancié !

vire le avec le NotesUidocument !

par **jfarissi** » 09 Oct 2009 à 12:59

c'est viré

Site internet · par **Michael DELIQUE** » 09 Oct 2009 à 12:59

d'une maniere générale

on ne laisse pas des variables qui ne servent a rien !

par **mike76** » 09 Oct 2009 à 12:59

je sais Michaël je suis plus rapide que toi !!! :lol:

Site internet · par **Michael DELIQUE** » 09 Oct 2009 à 13:00

et rajoute une gestion des erreurs

ça t'aidera a y voir plus clair quand il plante

DominoArea.org [Archive]

Agent scheduled

Agent scheduled