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

[awagner]

Hallo zusammen,

kann mir jemand weiterhelfen wie ich folgendes Problem lösen kann:

Ich habe eine Mail-DB in der ich einen Agenten erstellen soll, welcher alle 10min
den Eingang auf neue Dokument prüft.
Ist ein neues Dokument vorhanden, soll dieses als txt-Datei abgespeichert werden (nur der Body)

mein Problem hier ist erstmals, wie kann ich feststellen, dass das Dokument noch nicht bearbeitet wurde und "neu" ist, seit dem letzten Lauf des Agenten?

Viele Grüße
Andi

[MadMetzger]

Warum einen periodischen Agenten, wenn es doch den Trigger "nach Eingang neuer Mail" gibt? Dort hast du dann immer nur die Mails im Zugriff, die gerade neu hereinkommen.

Bei deiner periodischen Variante kannst du mit einem Flag arbeiten, dass du für die Verarbeitung beachtest. Beispielsweise könntest du die Auswahl deines Agenten auf das "Nicht-Vorhanden-Sein" dieses Flags trimmen.

Aber ich tendiere zur ersten Variante, da musst du dir darum nämlich keine Gedanken machen.

[ata]

... leg in dem Doument ein flag-Feld an, z.B. flagIsDone mit Wert = 1 an. Wenn das Doument dieses Feld hat mit dem Wert 1, dann wurde es schon  mal bearbeitet...

Toni

[awagner]

@MadMetzger: Es ist nicht gewollt, dass der Agent nur läuft, wenn neue Mails reinkommen (weil dann unter Umständen der Agent ewig läuft...) Diese Mail-DB empfängt sehr viele Mails.

@ata: war auch mein erster Gedanke, aber ich habe mir gedacht, es gibt evtl. noch einen anderen Weg, als über das extra Feld zu gehen.

[ata]

... du könntest das Erstellungsdatum der Mail heranziehen - aber das ist gewagt - da Notes keine Echtzeitprogrammierung kennt. Hier könnte es unsauber sein...

Toni

[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

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