Hallo,
wir haben folgendes Problem:
Wir brauchen für eine Anwendung die Möglichkeit das Anhänge aus Notes direkt auf der AS/400 zu speichern.
Wir haben ein Script gefunden welches die Datei auch speichert. Leider nur lokal auf dem PC. Wie müssen die Pfade und die Berechtigungen gesetzt werden damit die Datei im IFS oder Domino Verzeichnis gespeichert werden kann.
Frage Teil2
Wenn der Agent auf Aktion nach jedem Mail-Eingang gesetzt ist funktioniert er nicht. Nur wenn er manuell über aktionen ausgeführt wird.
Vielen Dank
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="Test" 'Textteil der Im Betreff vorkommen muss
AblageIn="Archiv" 'Ordner in dem die Mail abgelegt werden soll
GesAnhang="test.doc" 'Textteil der im Dateinamen des Anhangs enthalten sein muss
ExtrPfad="/Domino/xxx/Data/xxx/Archiv/" '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.putinfolder(AblageIn)
Call doc.removefromfolder("($Inbox)")
End If
End If
End Forall
End If
End If
End If
Set doc = dc.getnextdocument(doc)
Loop
End Sub