Collection UnprocessedDocuments immer nur ein Eintrag

[marsu_2]

Hallo alle miteinander,

ich wollte ein kleines Script schreiben um E-Mailvorlagen zu versenden.

Es wird aber immer nur eine E-Mail versendet.

Ich konnte das Problem lokalisieren, verstehe es aber nicht.
Dies Beispiel aus der Hilfe klappt, die Collection beinhaltet alle markierten Dokumente.

Code

%END REM
Option Public
Option Declare

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
	Set db = session.CurrentDatabase
  Set collection=db.UnprocessedDocuments
  If collection.Count = 0 Then
	  MessageBox "Not found"
  Else
	  MessageBox  collection.Count & " documents found"
  End If
End Sub

Bei meinem nachfolgenden Code hat die Collection immer nur einen Eintrag, egal wie viele ich selektiere und somit ist dann auch klar warum der Rest nicht klappt.
Aber ich sehe keinen Unterschied?
Und ja ich habe schon Notes geschlossen und es ist auch ein Wochenende dazwischen, es dürfte also kein merkwürdiges Cacheverhalten sein.
  

Code

 
 %REM
	Agent Jährliche Prüfung
	Created 19.10.2016 by Thomas	Description: Comments for Agent
%END REM
Option Public
Option Declare

Sub Initialize
	On Error GoTo ErrorHandling
	
	Print "Der Mailversand läuft"
	
	Dim db As NotesDatabase
	Dim session As New NotesSession
	Dim collection As NotesDocumentCollection
	Dim rtnav As NotesRichTextNavigator
	Dim rtrange As NotesRichTextRange
	Dim maildoc As NotesDocument
	Dim rti As NotesRichTextItem
	Dim rtiA As Variant
	Dim doc As NotesDocument
	Dim dbprofile As NotesDocument
	Dim SucheText1 As String
	Dim ErsetzeText1 As String
	Dim n As Integer
	
	Set db = session.CurrentDatabase
	Set collection=db.UnprocessedDocuments
	MsgBox  collection.Count

Jemand eine Idee?

Grüße
Thomas

[ascabg]

Hallo,

Wie ist denn der Agent eingestellt?


Andreas

[marsu_2]

Oh nein wie peinlich.

Danke Andreas, das war es natürlich, ich hatte den Agent kopiert und da läuft er automatisiert.

In der Laufzeit war das Ziel auf keins gesetzt.

Danke!!