Das Notes Forum
Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Alperen15 am 09.06.11 - 11:50:15
-
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?
-
Das kann alles mögliche sein. Ohne etwas genauere Problembeschreibung können wir auch nur raten.
Schuß ins Blaue : Verwendest Du UI-Klassen ?
-
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
-
Hallo,
Und was ist mit dem UIWorkspace?
Andreas
-
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.
-
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...
-
@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
-
jep jetzt funktionierts Danke euch allen, dass Ihr mir geholfen habt :)