Domino 9 und frühere Versionen > ND7: Entwicklung

Nur bis zu 11.149 Dokumente in einem Ordner?

<< < (3/3)

Bruce Willis:

--- Zitat von: koehlerbv am 19.10.09 - 20:26:08 ---Schirmschuss ist entfernt, Leo.

--- Ende Zitat ---

Danke, Bernhard.
War mir zu persönlich... :)

Wenn Du noch etwas zu meinem letzten Problem von "Heute um 19:37:42" beitragen könntest, wäre ich restlos glücklich...
;)

koehlerbv:
Lies Dir nochmal Thomas' Post durch. Dein Problem macht er dort offensichtlich, und daraus ergibt sich die Lösung. Begriff für die Forumssuche: "adt argument"

Bernhard

PS: Mit dem Schirmschuss hattest Du natürlich vollkommen Recht. Sorry, Leo.

Bruce Willis:

--- Zitat von: koehlerbv am 19.10.09 - 21:44:51 ---Lies Dir nochmal Thomas' Post durch. Dein Problem macht er dort offensichtlich, und daraus ergibt sich die Lösung. Begriff für die Forumssuche: "adt argument"

--- Ende Zitat ---

Danke, Bernhard.
Ich habe das Topic gefunden http://atnotes.de/index.php/topic,41612.20.html
In dem Posting von Glombi stehen sehr gute Hinweise.
Jetzt funktioniert der Agent einwandfrei.

VIELEN DANK AN ALLE BETEILIGTEN !!!

 :knuddel:


--- Code: ---Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docNext As NotesDocument
Dim view As NotesView
Dim days As Variant
Dim k As Variant

Set db = s.CurrentDatabase
Set view = db.GetView("($Inbox)")
Set doc = view.GetfirstDocument
k = 0

Do Until doc Is Nothing
Set docNext = view.GetNextDocument(doc)
days =  Date - doc.Created
Print days 'falls Agent manuell gestartet wird...
If days > 60 Then
Call doc.RemoveFromFolder("($Inbox)")
k=k+1
End If
Set  doc = docNext
Call view.Refresh  'ohne Refresh würde nicht jedes sondern nur jedes zweite Dok verschoben !
Loop
Print k & " Emails verschoben" 'Anzahl der verschobenen Emails wird angezeigt

End Sub
--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete