Agent läuft nur wenn ich den Agenten im Designer starte. nach Zeitplan nicht.

[Klaas]

Hallo,

ich habe einen Agenten geschrieben, welcher E-Mails generiert. Das soll der Agent jeden morgen machen.
Macht er aber leider nicht.
Im Zeitplan ist festgelegt welcher Server von dem Agenten genutzt werden soll.
Die Laufzeit-Sicherheitsstufe ist auf 3 gesetzt.

Wenn ich nun im Designer sage, "Starten" dann funktioniert alles.

Und hier das Script:

Sub Initialize
   Dim ws                         As New Notesuiworkspace
   Dim gSession                      As New NotesSession
   Dim view                        As NotesView
   Dim docA                        As NotesDocument
   Dim docVater                     As NotesDocument
   Dim currentDB                      As NotesDatabase
   Dim mailDoc                      As NotesDocument
   Dim mailPerson                  As String
   Dim Dummy1                     As Variant
   Dim Dummy2                     As Variant
   Dim Dummy3                     As Variant
   Dim Dummy4                     As Variant
   Dim mailBetreff2                  As String
   Dim rtItem                      As NotesRichTextItem
   Const Ansicht1                     ="AdminÄnderung"
   Const mailName                  ="ProvidePersonAWDis"
   Const mailBetreff1                  ="Sie müssen das Dokument: "
   Const mailBetreff3                  =" noch ändern."
   Const mailInhalt1                  ="Zu diesem Dokument wurden sie als Ersteller ermittelt."
   Const mailInhalt2                  ="Link zum Dokument"
   
   Set gSession                      = New NotesSession
   Set currentDB                     = gSession.CurrentDatabase
   Set view                         = currentDB.GetView( Ansicht1 )
   Set docA                         = view.GetFirstDocument
   
   While Not docA Is Nothing
      Dummy1                     = docA.GetItemValue( mailName )
      mailPerson                  = Dummy1(0)
      Dummy1                     = docA.GetItemValue("ISONameAW")
      mailBetreff2                  = Cstr(Dummy1(0))
      Set mailDoc                   = currentDB.CreateDocument
      Call mailDoc.ReplaceItemValue ( "Form", "Memo")
      Call mailDoc.ReplaceItemValue ("SendTo", mailPerson)
      Call mailDoc.ReplaceItemValue ("Subject", mailBetreff1+mailBetreff2+mailBetreff3)
      Set rtItem = mailDoc.CreateRichTextItem ("Body")
      Call rtItem.AppendText ( mailInhalt1 )
      Call rtItem.AddNewline(1, True)   
      Call rtItem.AddNewline(1, True)
      Call rtItem.AppendDocLink( docA, mailInhalt2)
      Call rtItem.AppendText ( mailInhalt2 )
      If mailPerson<>"" Then   
         Call mailDoc.Send (True)
      End If
      Set docA                     =view.GetNextDocument( docA )
   Wend
End Sub

Ich habe keine Ideen mehr woran es liegen könnte.

[WernerMo]

Hallo,

hat der Signierer nicht genügend Rechte auf dem Server?

Gruß Werner

[m3]

1) Ein geschedulter Agent kann nicht mit UI-Elementen (Notesuiworkspace) arbeiten/laufen.
2) Das Log sagt Dir sicherlich genauer, was ihm nicht passt. Was steht denn im Log?

[Klaas]

Ohmann vielen vielen Dank, das war echt einfach. der UIWorkspace stand weis gott warum da drin. Den habe ich raus genommen und nun gehts.