Agent startet nicht automatisch

[Alperen15]

Hallo alle zusammen,

ich habe ein Problem, bzw. Frage. Ich habe einen Reminderagenten der funktioniert auch richtig wenn man ihn manuell startet. Sobald ich es automatisieren möchte Datum und Uhrzeit einstelle für den automatischen anstoss, funktioniert der Agent nicht.

Wisst Ihr vllt wo das Problem sein könnte?

[Driri]

Das kann alles mögliche sein. Ohne etwas genauere Problembeschreibung können wir auch nur raten.

Schuß ins Blaue : Verwendest Du UI-Klassen ?

[Alperen15]

Nein keine ui Klassen vllt hilft der Quellcode

Sub Initialize
   
   Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim names As NotesDatabase
   Dim uid As String
   Dim heute As New NotesDateTime("Today")
   Dim username As New NotesName(session.CommonUserName)
   Dim RTItemProfileDoc As Variant
   Dim oRTItem As NotesRichTextItem
   Dim cText As String
   Dim cError As String
   Dim zaehler As Integer
   Dim oView As NotesView
   Dim oSearchDoc As NotesDocument
   Dim oNeuDoc As NotesDocument
   Dim ProfilDoc As NotesDocument
   Dim cEmpfaenger As String
   
   Set db = session.CurrentDatabase
   Set ProfilDoc = db.GetProfileDocument("PDAllgemein")
   Set oView = db.GetView("vwReminder")   
   
   Set oSearchDoc = oView.GetFirstDocument
   
   While Not (oSearchDoc Is Nothing)
      
      Set oNeuDoc = db.CreateDocument                              
      oNeuDoc.Form = "Memo"
      oNeuDoc.Subject = "Reminder: "& oSearchDoc.txCustNo(0) & oSearchDoc.txCustName(0) & " KonsiInventory Database"
      
      Set oRTItem = New NotesRichTextItem(oNeuDoc, "Body")  ' *** in Body des Memos reinschreiben
      Call oRTItem.AddNewLine(1)
      Call oRTItem.AppendText( "Please edit your workflow . Link to document --> " )
      Call oRTItem.AppendDocLink(oSearchDoc, "link to document" )      
      
      
      cEmpfaenger = Cstr(oSearchDoc.fdReminder(0))
      Call oNeuDoc.Send(False, cEmpfaenger)   
      
      
      
      oSearchDoc.fdAnRem = cEmpfaenger
      oSearchDoc.fdRemText =  "Reminder: "& oSearchDoc.txCustNo(0) & oSearchDoc.txCustName(0) & "send to " & cEmpfaenger
      oSearchDoc.fdRemDate = Now
      
      
      Call oNeuDoc.Save(True,True)
      
      Set oSearchDoc = oView.GetNextDocument(oSearchDoc)      
   Wend
End Sub

In der Ansicht vwReminder sind zwei Dokumente, wie gesagt wenn ich es manuell starte funktionierts, automatisch funktionierst nicht

Agenteinstellung:

Markiert ist Durch Zeitplan

Zeitplan.... wöchentlich / Donnerstag / 11:00
Ziel       Alle Dokumente in der Datenbank

[ascabg]

Hallo,

Und was ist mit dem UIWorkspace?


Andreas

[Driri]

Das hier verstehe ich auch nicht :

oSearchDoc.fdAnRem = cEmpfaenger
oSearchDoc.fdRemText =  "Reminder: "& oSearchDoc.txCustNo(0) & oSearchDoc.txCustName(0) & "send to " & cEmpfaenger
oSearchDoc.fdRemDate = Now
     
Call oNeuDoc.Save(True,True)

Du änderst die Items in oSearchDoc, speicherst dies aber nicht. Stattdessen speicherst Du oNeuDoc. Ein Versehen ?


Und noch ein Tipp, falls Du oSearchDoc änderst und speicherst : Wenn durch die Änderung das Dokument aus der zugrundeliegenden View fliegt (weil es die Bedingungen im Select-Statement nicht mehr erfüllt), solltest Du AutoUpdate für die View vor dem Lauf durch die Schleife deaktivieren und anschließend wieder aktivieren. Das könnte sonst zu Problemen führen, weil bei GetNextDocument das Verweisdokument nicht mehr in der View ist.

[marschul]

Ist im Agent der richtige Server eingestellt?
Was steht im Server-Log (log.nsf)? Da müsste zumindest ein Hinweis erscheinen, ob der Agent gestartet wurde und falls ja, ob's irgendwelche Fehler gibt...
Da es ein LS-Agent ist: Hat der Unterzeichner die erforderlichen Rechte laut Serverdokument - auch hier gäbe es entsprechende Hinweise im Log...

[Alperen15]

@Ingo jep oSearchDoc wird jetzt gespeichert hatte ich vergessen

@Marco Ausführen im Namen von .... war leer da habe ich jetzt den Server eingetragen der Agent müsste in 2 Minuten starten bin mal gespannt

[Alperen15]

jep jetzt funktionierts Danke euch allen, dass Ihr mir geholfen habt