Lotus Script / Umbennen eines Anhangs der gespeichert werden soll

Hallo,

wie haben einen Agenten mehrmals am Tag laufen. Dieser Agent speichert eine Datei aus einer Email direkt im IFS unserer i5. Das Script funktioniert auch gut und wird automatisch alle 2Minuten ausgeführt. Jetzt haben wir aber das Problem dass das Script die Datei automatisch umbenennen soll. Da ich mich mit Lotus Script leider nicht auskenne wäre es nett, wennmir jemand helfen könnte.

Hier der Queltext der mit einem rename erweitert werden sollte.

schon mal VIELEN DANK für eure HILFE!!!!

Quelltext:

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="" 'Textteil der im Dateinamen des Anhangs enthalten sein muss
ExtrPfad="/Domino/xxxx/Data/xxxx/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

Wie scho gesagt, bin ich nicht wirklich fitt darin. Wie müsste das Script denn aussehen dass er aus dem Dateinamen z.B. test.txt beim ablegen mach?

Ich habe jetzt versucht das Stück Code an diese Stelle einzufügen:

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="" 'Textteil der im Dateinamen des Anhangs enthalten sein muss
ExtrPfad="/Domino/xxxx/Data/xxxx/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(name ExtrPfad & Anhang.name as ExtrPfad & test.txt)
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

Wenn ich jetzt das Script speichern will erschein die Meldung Fehler im Script! War bestimmt die Falsche stelle oder? :-? :-? 8-) 8-)

Hallo,

ich hab jetzt die Zeile wie beschreiben in das Script eingefügt. Leider Funktioniert das ganze Script jetzt nicht mehr! Schon wieder ein Fehler?

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="" 'Textteil der im Dateinamen des Anhangs enthalten sein muss
ExtrPfad="/Domino/xxxx/Data/xxxx/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)
Name ExtrPfad & Anhang.name As ExtrPfad & test.txt
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

Die Datei wird weder gespeichert noch umbenannt. Die Email bleibt auch im Posteingang und wird auch nicht wie sonst in einen seperaten Ordner verschoben.

Wie Funktioniert das? Wie gesabt bin auf dem gebiet ein echter DAU

Ich wollte nur wissen wie ich weitere Infos bekomme die ich hier posten kann um das Problem zu erläutern. Das Script funktionierte ja ohne die besagte Zeile!