title image


Smiley Problem mit periodischem Agenten
Moin moin,

hab ein Problem mit einem periodischen Agenten, der folgendes machen soll: Im Dokument ist ein Feld mit einem Fristendatum. Wird dieses überschritten wird ein Mail losgeschickt. Dazu wird nachts einmal das aktuelle Datum mit dem Fristendatum verglichen und wenn's größer ist wird das Mail generiert und abgeschickt.

Klappt alles ganz wunderbar wenn ich den Agenten aus dem Designer heraus - rechte Maustaste - Starten losschicke. Stell ich den Agenten jedoch auf periodisch 1 mal täglich, passiert nix mehr. Der Logfile gibt mir die Meldung "Error creating product object".

Kann mir das bitte jemand aufschlüsseln. Welches product object ist denn hier gemeint?

Vielen Dank



Notes 5.08, Windows 2000

Hier der Code:

Dim s As New NotesSession

Dim db As New NotesDatabase( "", "" )

Dim db1 As NotesDatabase

Dim searchview As NotesView

Dim dc As NotesDocumentCollection

Dim maildoc As NotesDocument

Dim searchdoc As NotesDocument

Dim curdoc As NotesDocument

Dim sendToItem As NotesItem

Dim TimeLimitItem As NotesItem

Dim message As String

Dim boxTyp As Long

Dim richStyle As NotesRichTextStyle

Set richStyle = s.CreateRichTextStyle



Dim dateTime As New NotesDateTime( "" )

Dim LimitDate As NotesDateTime

Call dateTime.SetNow

curdate=dateTime.DateOnly

Set db1 = s.CurrentDatabase

Set searchview = db1.GetView("FVoC")

Set dc = searchview.GetAllDocumentsByKey( "Dies und Das", True )

If dc.Count > 0 Then

Set searchdoc = dc.GetFirstDocument



While Not (searchdoc Is Nothing)

checkkom = searchdoc.GetItemValue( "CommentComplete" )

If checkkom(0) ="Nein" Then



Set TimeLimitItem = searchdoc.GetFirstItem("fdTimeLimit" )

Set LimitDate = TimeLimitItem.DateTimeValue

checkdate = LimitDate.DateOnly



If curdate > checkdate Then

checkpjl = searchdoc.GetItemValue( "fvc_pjl" )

If checkpjl(0) ="" Then

searchdoc.fvc_pjl = "Nein"

End If



checkvtleader = searchdoc.GetItemValue( "fvc_vtleader" )

If checkvtleader(0) ="" Then

searchdoc.fvc_vtleader= "Nein"

End If



searchdoc.CommentComplete ="Ja"

partner = searchdoc.GetItemValue("ContractingPartyName")

number = searchdoc.GetItemValue("Number")



fdVTLeader = searchdoc.GetItemValue("fdVTLeader")



Call searchdoc.Save( False, True )



Set maildoc = New NotesDocument(db1)

maildoc.Form = "Memo"

NewLine = Chr(13) & Chr(10)

Set sendToItem =New NotesItem(maildoc, "SendTo","", NAMES)

Call sendToItem.AppendToTextList (fdVTLeader(0))

Call maildoc.AppendItemValue("Subject", "Bitte um Freigabe der "+ number(0) +" mit " + partner(0) )

maildoc.Decission ="1"

maildoc.Importance ="1"



richStyle.NotesColor = COLOR_RED

richStyle.Bold = True

Dim rtitem As New NotesRichTextItem(mailDoc, "Body")

Call rtitem.AppendText("Guten Tag," + NewLine + NewLine + "Der Vertrag " +Number(0) +" mit Partner " + partner(0) + " ist fertig zur Freigabe. ")

'Die neue Schriftart zuweisen

Call rtItem.AppendStyle(richStyle)

Call rtitem.AppendText( NewLine + NewLine+ "Bitte folgen Sie dem Link und prüfen, ob Sie diesem Vertrag Ihre Freigabe erteilen möchten.")

richStyle.NotesColor = COLOR_BLACK

richStyle.Bold = False



Call rtItem.AppendStyle(richStyle)



Call rtitem.AppendText(NewLine + NewLine +" ------> ")

Call rtitem.AppendDocLink (searchdoc, partner(0))



Call rtitem.AppendText(NewLine + NewLine + "Vielen Dank")



Call maildoc.Send(False)





End If 'checkcomment leer

End If' Aktuelles Datum größer als Fristdatum

Set searchdoc = dc.GetNextDocument( searchdoc )

Wend

End If 'Kollektion nicht leer



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: