Automatisches Speichern einer Datei

Hallo Forum Gemeinde,

ich verwende ein Script für einen Agenten der eine Datei automatisch im Dateisystem unserer i5 ablegt.
Jetzt habe ich das Problem, dass das Script es nicht kapiert dass es eine Email die es schon ins Archiv verschoben hat nicht mehr benutzen soll sióndern nur Mails die direkt in der Inbox sind.
Falls jemand eine Idee aht daas das Script nur auf die Inbox läuft wäre ich sehr dankbar!!!

Hier das Script:

Sub Initialize
Dim ses As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim dc As notesdocumentcollection
Dim subj,itm As Variant
Dim eo As notesembeddedobject
Dim Betreff, GesAnhang,AblageIn,ExtrPfad As String

Betreff="ks" 'Textteil der Im Betreff vorkommen muss
AblageIn="Archiv" 'Ordner in dem die Mail abgelegt werden soll
GesAnhang="" 'Textteil der im Dateinamen des Anhangs enthalten sein muss
ExtrPfad="/Domino/xxx/Data/xxx/xxx/xxx/" 'Pfad in dem der Anhang gelöst werden soll

Set db = ses.currentdatabase
Set dc = db.unprocesseddocuments
Set doc = dc.getfirstdocument

Do While Not(doc Is Nothing)
subj=doc.getitemvalue("Subject")
If Instr(subj(0), Betreff) Then
If doc.hasembedded Then
Set itm=doc.getfirstitem("Body")
If itm.type=RICHTEXT Then
Forall Anhang In itm.embeddedobjects
If Anhang.type = EMBED_ATTACHMENT Then
If Not Instr(1,Anhang.name,GesAnhang,1)=0 Then
Set eo = doc.getattachment(Anhang.name)
If eo Is Nothing Then Exit Do
Call eo.extractfile(ExtrPfad & Anhang.name)
Call doc.removefromfolder("($Inbox)")
Call doc.removefromfolder("($Trash)")
Call doc.removefromfolder("($All)")
End If
End If
End Forall
End If
End If
End If
Set doc = dc.getnextdocument(doc)
Loop
End Sub

Hallo,

hab grad versucht das ganze mit zu integrieren. Jetzt scheint aber ein fehler drin zu sein. Könnt nochmal jemand HELFEN!!!?

Sub Initialize
	Dim ses As New notessession
	Dim db As notesdatabase
	Dim doc As notesdocument
	Dim dc As notesdocumentcollection
	Dim subj,itm As Variant
	Dim eo As notesembeddedobject
	Dim Betreff, GesAnhang,AblageIn,ExtrPfad As String
	Dim view As NotesView

	Betreff="ks" 'Textteil der Im Betreff vorkommen muss
	AblageIn="Archiv" 'Ordner in dem die Mail abgelegt werden soll
	GesAnhang="" 'Textteil der im Dateinamen des Anhangs enthalten sein muss
	ExtrPfad="/Domino/xx/Data/xx/xx/xx/" 'Pfad in dem der Anhang gelöst werden soll

	Set db = ses.currentdatabase
	Set dc = db.unprocesseddocuments
	Set view = db.GetView("($Inbox)")
	Set doc = view.GetFirstDocument

	While Not doc Is Nothing 
		subj=doc.getitemvalue("Subject")
		If Instr(subj(0), Betreff) Then
			If doc.hasembedded Then
				Set itm=doc.getfirstitem("Body")
				If itm.type=RICHTEXT Then
					Forall Anhang In itm.embeddedobjects
						If Anhang.type = EMBED_ATTACHMENT Then
							If Not Instr(1,Anhang.name,GesAnhang,1)=0 Then
								Set eo = doc.getattachment(Anhang.name)
								If eo Is Nothing Then Exit Do
								Call eo.extractfile(ExtrPfad & Anhang.name)
								Call doc.putinfolder(AblageIn)
								Call doc.removefromfolder("($Inbox)")
							End If
						End If
					End Forall
				End If
			End If
		End If
		Set doc = view.GetNextDocument(doc)
	Wend
End Sub

Ich kann das Script leider nicht speichern irgendwo ist der Wurm drin!?

Hey,

der Fehler lautet:

Initalize: 31: ILLEGAL EXIT DO

WOW WOW WOW!!!

VIELEN DANK!!!

Da hat mir jmd den A**** gerettet