Hallo Ihr Lotus-Notes Profis,
ich habe ein Problem mit einem Agent (Script) er soll laufen wenn eine neue Mail mit bestimmten Subject von einem bestimmten eMail Adresse kommt (Dies habe ich auch in dem Agent so eingestellt- er in dem Agent der Datenbank an die die Mail gesendet wird)
dann soll er in diesem Mail das Attachment lösen und auf einem Speicherort ablegen.
Wenn ich den Agent auf Manuell stelle läuft er auch ohne Probleme
das Attachment wird gespeichert alles läuft ok.
Doch wenn ich diesen Agent auf "Wenn neues Mail ankommt" stelle
Läuft der Agent zwar aber mit folgender Fehlermeldung im Protokoll
Fehler: Unkown Lotus Script Error
Weiss irgendjemand woran das liegt ?
Kann das an meinem Code liegen denn ich mir mühsam zusammengebastelt habe ? Ich bin leider kein Notes Profi
Oder hat jemand von Euch eine andere Lösung für dieses Problem ?
Hier der Code :
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.Currentdatabase
Set dc = db.unprocessedDocuments
Set doc = dc.getfirstdocument()
If doc.HasEmbedded Then
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile ( "F:\" )
'Anhang auf Laufwerk "Pfad" speichern
End If
End Forall
End If
End If
