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