Hallo zusammen,
ich habe einen Agenten, der nach Eingang neuer Mail das Attachment (pdf) aus der Mail entfernen soll und auf einem Fileserver ablegt.
Wenn ich den Agenten manuell starte, dann funktioniert es. Nur nach Eingang einer neuen Mail gibt er kein Lebenszeichen von sich.
Woran kann das liegen ?
Agent wurde mit der ServerID signiert und wird im Administrator unter Server > Status > Agenten aufgeführt
Sub Initialize
Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim dc As NotesDocumentCollection
Dim fpath As String
Set session = New NotesSession
Set db = session.CurrentDatabase
fpath = "\\Server\eingangsrechnungen$\"
Set dc = db.UnprocessedDocuments
Set doc =dc.GetFirstDocument()
While Not(doc Is Nothing)
Set rtitem = doc.GetFirstItem( "Body" )
If (rtitem.Type = RICHTEXT) Then
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile(fpath & o.Source)
Call session.UpdateProcessedDoc( doc )
End Forall
Set doc=dc.GetNextDocument(doc)
End If
Wend
End Sub
Edit: Gehen sollte es ja
http://atnotes.de/index.php/topic,39788.msg253088.html#msg253088 (http://atnotes.de/index.php/topic,39788.msg253088.html#msg253088)
gruß Chris
@Bernhard
Ich denke es soll so gehen
On Error GoTo ErrorHandler1
Code
(wenn hier Fehler im Code auftreten => gehe zu ErrorHandler1
On Error GoTo ErrorHandler2
Code
(wenn hier Fehler im Code auftreten => gehezu ErrorHandler2)
ErrorHandler1:
Code
ErrorHandler2:
Code
Liege ich damit etwa falsch?
Dann haette ich in den letzten Jahren der Programmierung (nicht nur LN)
alles in Bezug auf eine Fehlerbehandlung falsch gemacht.
Andreas
On Error GoTo ErrorHandler1
Code
(wenn hier Fehler im Code auftreten => gehe zu ErrorHandler1
ErrorHandler1:
Code
ErrorHandler1 samt Code steht - wie ich ja auch schon schrieb - hinter der Sprungmarke ("ErrorHandler1") von On Error Goto. Ich verstehe also Dein (Verständnis-)Problem nicht, Andreas.
Bernhard
ErrorHandler1 samt Code steht - wie ich ja auch schon schrieb - hinter der Sprungmarke ("ErrorHandler1") von On Error Goto. Ich verstehe also Dein (Verständnis-)Problem nicht
Wahrscheinlich kommt dieses daher, das ich den Text von Chris (Klafu) so interpretiere, dass er die Zeile
hinter die Zeile
Call o.ExtractFile(fpath & o.Source)
Reicht es wenn ich dahinter ein On Error hinsetz ?
einfuegen moechte.
Andreas