Domino 9 und frühere Versionen > ND6: Entwicklung

Agent für Mail-DB - Export txt-File

<< < (2/2)

MadMetzger:
Der Grund konnte mir ja nicht bekannt sein, daher der Alternativvorschlag... Dann spricht einiges für das Flag-Item, dass halt ausgewertet wird.

awagner:
Ich hab auch ned gesagt, dass du das wissen hättest sollen  ;)

Ich habs folgendermaßen gelöst:
zusätzliches Feld, das den Standardwert "" bekommt.
Ein extra-Ansicht, welches alle Dokumente anzeigt, die den Wert "" haben

Dann folgenden Agenten programmiert:


--- Code: --- Dim view As  NotesView
Dim db As  NotesDatabase
Dim s As New NotesSession
Dim doc As NotesDocument
Dim doc_alt As NotesDocument
Dim fileNum As Integer
Dim fileName As String

Set db = s.CurrentDatabase
Set view = db.GetView("vITSM")
Set doc = view.GetFirstDocument

Do While Not doc Is Nothing
fileNum% = Freefile()
fileName$ = "J:\" & doc.UniversalID & ".txt"
Open fileName$ For Output As fileNum%
Write #fileNum%, doc.GetItemValue("body")( 0 )
Close fileNum%
Set doc_alt = doc
Set doc = view.GetNextDocument(doc)
Call doc_alt.ReplaceItemValue("fITSM_flag", "1")
Call doc_alt.Save(True, False)
Loop
--- Ende Code ---

Dieser Agent läuft jetzt alle 10 min auf der DB und exportiert die Daten aus dem Body in txt-File

Navigation

[0] Themen-Index

[*] Vorherige Sete