Domino 9 und frühere Versionen > ND6: Entwicklung

Agent funktioniert nicht

<< < (3/3)

diali:
arr ist ein Array von Zahlen, dies wird bei vw.GetAllDocumentsByKey(arr) nicht funktionieren.

Beschreibe doch mal mit Worten, welche Dokument in welcher Ansicht angefasst werden sollen.

DannyCrown:
Habs schon gelöst  ;D  O0


--- Code: ---Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim senddoc As NotesDocument
Dim rtItem As NotesRichTextItem

Dim strSubject As String
Dim strDocName As String
Dim strBody As Variant
Dim strEmpfaenger As String

Set db = session.Currentdatabase
Set senddoc = New NotesDocument(db)

Dim dc As NotesDocumentCollection
Dim vw As NotesView
Set vw = db.GetView("vwNeueDokumente")
Dim vc As NotesViewEntryCollection
Dim entry As NotesViewEntry
Set vc = vw.AllEntries
Set entry = vc.GetFirstEntry()
While Not (entry Is Nothing)
Set doc = entry.Document
If doc.GetItemValue("ErinnerungDatum")(0) = Today Then
Set rtitem = New NotesRichTextItem( senddoc, "Body" )
strEmpfaenger = doc.GetItemValue("Autor")(0)
strDocname = doc.GetItemValue("Dokumentname")(0)
With senddoc
.Form = "Memo"
.SendTo = doc.GetItemValue("Autor")(0)
.SendFrom = "Test@Test.de"
.Principal = "Test@Test.de"
.DisplaySent ="Test"
.Subject = "AgentLS - Automatische Erinnerung - " + strDocName
End With
strBody = "Autmatische Erinnerung! Folgen Sie dem Link um zum Dokument zu gelangen" & Chr(13) & Chr(13)
Call rtitem.AppendText(strBody)
Call rtItem.AppendDocLink(doc, doc.UniversalID)
Call senddoc.send(False)
End If
Set entry = vc.GetNextEntry(entry)
Wend
End Sub
--- Ende Code ---

Allerdings startet mein Agent noch nicht so wie gewünscht, aber immerhin macht er jetzt was wenn ich ihn ausführe und sogar das, was er soll  O0
Nur, wenn ich ihn periodisch einstelle, dann startet er den Agenten nicht.
Hier mal meine Einstellungen:

Auslösen: durch Zeitplan
Zeitplan: täglich
Agent startet um: 13:45 Uhr

Driri:
Der Agent ist aber aktiviert, oder ? Also Häkchen ist gesetzt ?

Sonst schau doch mal auf der Serverconsole mit "tell amgr sched" nach, ob der Agent da auftaucht.

DannyCrown:
ja, Häkchen ist gesetzt, aber glaube auf die Serverkonsle komme ich so nicht drauf, bin nur ein armer kleiner Azubi  ;D O0 O0 O0
Aber trotzdem Danke!;-)

Also hat sich erledigt, hab nicht dran gedacht das die DB auf nem Testserver liegt und der kannte die Adresse halt nicht wo die Email hingeschickt werden sollte. Also alles klappt!

Vielen Dank nochmals für euer Bemühen.

Navigation

[0] Themen-Index

[*] Vorherige Sete