Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: OCS am 18.07.06 - 13:28:10

Titel: Wiedervorlageagent periodisch
Beitrag von: OCS am 18.07.06 - 13:28:10

Hallo zusammen,
habe nen Wiedervorlageagent gemacht ... Das gaze funktioniert wunderbar, solange ich es von Hand aufrufe. Jetzt habe ich den Agent mal als periodisch eingestellt, aber leider passiert nix! Hier der Code:

Sub Initialize
   
   Dim session As New NotesSession
   Dim current As NotesDatabase
   Dim mailbox As New NotesDatabase("","")
   Dim maildoc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim sendto As String
   Dim sendas As String
   Dim i As Integer
   Dim datetime As New NotesDateTime( "" )   
   'Zu Prüfende Schlüssel
   Dim aview As notesview
   Dim now_time As String
   Dim db As NotesDatabase
   Dim workspace As notesuiworkspace
   Dim acol As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim test As String
   
   
   
   Dim akey As String
   Set db = New notesDatabase ("OCS02/OCS GmbH","aktiv\fb013.nsf")
   Set aview = db.getview ("vorlage")   
   
   dateTime.LSLocalTime = Now      
   Call dateTime.SetNow     
   now_Time = dateTime.LocalTime
   
   now_time=Left(now_time,10)
   Print now_time
   akey = "FB013"
   
   Set acol = aView.GetAllDocumentsbyKey( akey, True )
   
   Print acol.count
   
   For i = 1 To acol.count
      Set adoc = aCol.GetFirstDocument
      If adoc.docdatewiedervorlage(0) = now_time Then
         
   
         
         Call mailbox.Open( "OCS02/OCS GmbH", "mail.box" )
         sendto = adoc.DocSBWiedervorlage(0)
         sendas = "SupportDB"

         Set maildoc = mailbox.CreateDocument
         maildoc.Form = "Memo"
         maildoc.From = sendas
         maildoc.SendFrom = sendas
         maildoc.SendTo = sendto
         maildoc.Recipients = sendto
         maildoc.Subject = "Wiedervorlage Supportnr:  " + adoc.DocLfdNr(0) + " Kunde:  " + adoc.DocKunde(0)
         Set rtitem = maildoc.CreateRichTextItem( "Body" )
         Call rtitem.AppendDocLink(adoc, "Verknüpfung mit dem Dokument")
         Call rtitem.AppendText( message )
         maildoc.PostedDate = Now()
         maildoc.ComposedDate = Now()
         maildoc.DeliveredDate = Now()
         maildoc.Principal = sendas
         maildoc.EncryptOnSend = False
         
         Call maildoc.Save( True, False )
      End If
   Next
   
   
End Sub


Würde mich freuen, wenn mir jemmand helfen kann!

Gruß Björn

Titel: Re: Wiedervorlageagent periodisch
Beitrag von: klaussal am 18.07.06 - 13:30:18

Mal wieder die Standardfragen:

was sagft der Debugger ?
Ist der Agent signiert ?
Was ist mit den Rechten ?
usw
usw

Titel: Re: Wiedervorlageagent periodisch
Beitrag von: ZaLudtske am 18.07.06 - 13:39:17

Hallo,

du nutzt UI-Klassen (notesuiworkspace) in deinem Agenten. Dies ist leider bei Server-Agenten nicht möglich.

Rainer

Titel: Re: Wiedervorlageagent periodisch
Beitrag von: klaussal am 18.07.06 - 13:49:39

Das hatte ich auch gesehen, aber erst einmal sollen die Leute schreiben, was sie bisher getan haben, um den Fehler zu finden.

Titel: Re: Wiedervorlageagent periodisch
Beitrag von: OCS am 18.07.06 - 14:05:23

Hallo und danke erstmal!!,
das mit dem uiworkspace hab ich rausgmacht, hab ich eh nicht gebraucht! Hört sich jetzt vieleicht blöde an, aber wie signiere ich einen Agenten und vorallem wie kann ich einen periodisch ablaufenden Agenten signieren?

Titel: Re: Wiedervorlageagent periodisch
Beitrag von: Driri am 18.07.06 - 15:02:03

Entweder Du speicherst den Agent mit der entsprechenden ID ab oder Du signierst die Datenbank über den Admin-Client mit z.B. der Server-ID.