Agent nach Eingang neuer Mail läuft nicht

[Klafu]

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

Code

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

gruß Chris

[Steffen]

meine Vermutung:
du wirst wahrscheinlich das problem haben, dass kein Netzwerkzugriff erlaubt ist (für die Server.id)
-> lokal auf dem SErver oder mit einem gemappten Laufwerk wirds funktionieren

[Klafu]

Eigentlich sollten diese i.O. sein.

Kann man nicht irgendwie die Funktion des Agenten prüfen ?
Also, ob er wirklich startet ?

Gruß Chris

[Demian]

du kannst im Designer mit der rechten Maustaste das Protokoll öffnen. Da sieht man, wann oder ob der Agent gelaufen ist. Ansonsten guck dir die Klasse Noteslog mal an.

[ascabg]

Logfile des Servers

und den Agenten um eine Zeile "Print "Agent ist gestartet" erweitern

Hilft zumindest bei mir immer wieder


Andreas

[Lancelot]

Wer ist in den Benutzervorgaben als Owner eingetragen?

Ich habe die Erfahrung gemacht, wenn ich den Agent mit dieser ID speicher, dann läuft der Agent ohne Probleme an.

[Klafu]

Okay, also Laut Agentenprotokoll läuft der Agent. Aber nur wenn in der MailDB ich als Owner hinterlegt bin und der Agent ebenfalls von mir signiert ist.

Ein Print wird mir jedoch nicht ausgegeben. Und der Anhang auch nicht exportiert

[Lancelot]

Wie sieht es mit Deinen Berechtigungen auf dem Fileserver bzw. auch auf dem Ordner
wo Du das File ablegen möchtest aus?

[ascabg]

Nochmals zu den Logs.

Was hat der Agent denn in die Log.nsf des Servers geschrieben?
Und auch nur hier wuerden eventuelle Meldungen die mit print ausgegeben werden auch auftauchen.

Somit haettest du zumindest die moeglichkeit herauszubekommen, an welcher Stelle der Agent die Probleme verursacht, sofern er denn auch laeuft.


Andreas

[Klafu]

Hallo.
Mittlerweile bekomme ich ein Notes error: Access to data denied.
Wenn ich den Pfad auf einen lokal Ordner änder klappts.
Dann liegts wohl an der Schnittstelle zwischen dem Notes Server und dem File-Server.
Der Notes-Server ist aber mit dem 'Maschinenname' auf den File-Server mit Lese und Schreib Rechte ausgestattet

[Klafu]

Nun klappt alles, danke für eure Tipps.

Ich würde gerne explizit bei dem Call o.ExtractFile(fpath & o.Source) ein Errorhandling einbauen, falls das Exportieren nicht klappen sollte, das die Mail in einen Error Ordner verschoben wird.
Reicht es wenn ich dahinter ein On Error hinsetz ?

Gruß

[koehlerbv]

Hinter der Sprungmarke von On Error Goto sollte dann aber auch passender Code stehen 

Bernhard

[ascabg]

Dahinter wird nicht allzuviel bringen (da ist es ja schon zu spät).

Andreas

[koehlerbv]

Nö, dahinter ist schon richtig (hinter der Sprungmarke!) - erst wenn der Fehleraufgetreten ist, soll ja die Reaktion erfolgen.

Bernhard

[ascabg]

@Bernhard
Ich denke es soll so gehen

Code

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

[Lancelot]

Hi Andreas,

Deine Methode ist natürlich eine Ecke besser, weil so die Fehler vor und danach behandelt werden.
Da hat Bernhard bestimmt nichts dagegen.

Ich würde es ebenso machen wie Du, außerdem hat man das wie Du schon sagtest ja mal so gelernt. 

[koehlerbv]

Code

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

[ascabg]

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

Code

On Error GoTo ...

hinter die Zeile

Code

Call o.ExtractFile(fpath & o.Source)

Reicht es wenn ich dahinter ein On Error hinsetz ?

einfuegen moechte.


Andreas

[Lancelot]

Ich möchte Dir ja nicht wiedersprechen Bernhard dafür hast Du mir schon zu oft geholfen.
Aber wenn man vor und nach dem Ablegen der Files eine in "On Error" benützt, fange ich die Fehler vor und die Fehler nach der Ablage ab.

Mit Deiner Methode fange ich die Fehler welche zuvor auftauchen, die z.b. Falscher Pfad nicht rechtzeitig ab.

On Error GoTo ErrorHandler1

Ablagecode des Files

Dann...

On Error GoTo ErrorHandler2
.
.
.

ErrorHandler1:
  Code

ErrorHandle2:
Code

[koehlerbv]

Okay, wenn Ihr (durchaus nachvollziehbar) das "dahinter" auf "On-Error-Statement nach der möglichen Fehlerstelle" bezieht, dann habt Ihr beide natürlich vollkommen Recht.

By the way: Wenn man eine bestimmte Fehlernummer erwartet, kann man auch zwei On Error (eins mit Bezug auf die spezielle Fehlernummer, ein "allgemeines") parallel verwenden.

Bernhard