Handhabung von Fehlermails

Patri · 6. August 2007

Hallo Zusammen,

ich habe einen Agenten, der auf eingehende E-Mails reagieren soll.
Dieser Agent soll die Art von E-Mail unterscheiden (Eingehende Mail, Automatische Antwortmail, Mail vom Ticketsystem, Fehlermail) koennen und entsprechend reagieren..

So weit so gut. Nur leider kann der Agent mit den Fehlermails nicht so umgehen wie mit normalen mails... irgendwie kann man diese mail nicht als processed Document markieren... und so schickt er die Fehlermail wieder und wieder an die Admins... bis man sie mit hand loescht... loeschen per skript zieht da leider auch nicht..

Kennt jemand das Problem oder hat vllt. sogar eine Loesung??

Vielen Dank!

Patri

taurec · 6. August 2007

Ohne deinen Agenten, dessen Code und die Einstellungen zu kennen kann dir hier wohl keiner weiter helfen

Patri · 6. August 2007

Ich weisz nicht, ob der Code bei dem Problem weiterhilft, aber bitte.. hier habt ihr ihn..

Code

On Error Goto handler
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim mail As NotesDocument
	Dim rt As NotesRichTextItem
	Dim rtitm As NotesRichTextItem
	Dim body As String
	Dim nam As NotesName
	Dim doc2 As NotesDocument
	Dim hilfsdok As NotesDocument
	Dim i As Long

	Set db = s.CurrentDatabase
	Set dc = db.UnprocessedDocuments
	Set doc = dc.GetFirstDocument


	While Not( doc Is Nothing ) 
		If doc.From(0) <> "Ticket-System <Ticket.System@Muster-Domaene.de>" _
		And Instr(doc.From(0) ,"ticket system") = 0 _
		And doc.from(0) <> "ticket.system@Muster-Domaene.de"_
		And doc.GetFirstItem("$AssistMail") Is Nothing Then
			Set mail = New NotesDocument( db )
			With mail
				.form = "Memo"
				.subject = "AW: " & doc.Subject(0)
				.SendTo = doc.From(0)
			End With
			Set nam = s.CreateName(doc.From(0))
			Set rt = New NotesRichTextItem(mail, "Body")
			Set rtitm = doc.GetFirstItem("Body")
			Call rt.AppendText("Hallo ")
			Call rt.AppendText(nam.Common)
			Call rt.AppendText(",")
			Call rt.AddNewline(2)
			Call rt.AppendText("die von Ihnen angeschriebene Mailadresse dient ausschließlich der Versendung von E-Mails und wird nicht überwacht.")
			Call rt.AddNewline(2)
			Call rt.AppendText("Möchten Sie eine Störung, oder möchten Sie den Status einer bereits gemeldeten Störung einsehen bzw. weitere Angaben zu Ihrem Ticket eintragen?")
			Call rt.AddNewline(1)
			Call rt.AppendText("Dann nutzen Sie bitte den Zugang zum Ticket-System der Muster GmbH über die Intranet Startseite.")
			Call rt.AddNewline(3)
			Call rt.AppendText("Freundliche Grüße")
			Call rt.AddNewline(2)
			Call rt.AppendText("Ihr Ticket-System der IT-Organisation")
			Call rt.AddNewline(3)
			Call rt.AppendText("(Bitte beachten Sie: Diese E-Mail wurde automatisch von unserem Ticket-System generiert und versandt. Rückantworten auf dieses Schreiben können daher nicht bearbeitet werden.)")
			mail.Send(0)
			Call mail.Save(True, False)
			mail.PutInFolder("sent")
		End If
		Set doc = dc.GetNextDocument( doc )
	Wend

	'------------------------------------


	For i = 1 To dc.count
		Set doc = dc.GetNthDocument(i)
		Call s.UpdateProcessedDoc(doc)
		If (doc.HasItem("FailureReason")) Then
			doc.SaveMessageOnSend = False
			Call doc.Send(True, "ticketsystemerror")
			Call doc.Remove(True)
		Elseif (doc.hasitem("$AssistMail")) Then
			Call doc.PutInFolder("autoresponder", True)
		Elseif doc.From(0) = "Ticket-System <Ticket.System@Muster-Domaene.de>" Then
			Call doc.PutInFolder("sent", True)
			Call doc.RemoveFromFolder("($Inbox)")
		Else
			Call doc.PutInFolder("received", True)
			Call doc.RemoveFromFolder("($Inbox)")
		End If
	Next
	Exit Sub

handler:
	Dim hdb As NotesDatabase
	Dim hdoc As NotesDocument
	Dim hs As New NotesSession
	Set hdb = hs.CurrentDatabase
	Set hdoc = New NotesDocument(hdb)
	With hdoc
		.Subject = "Problem bei der Abarbeitung von DHTS-Mails"
		.Body = "Verdammt .. Houston  wir haben ein " & Error$ & " in Zeile " & Cstr(Erl)
		.SendTo = "Patri"
	End With
	Call hdoc.Send(False)
	Resume Next

Alles anzeigen

Diali · 6. August 2007

reagiert Dein Agent vor oder nach eingang einer Mail?

Bei vor Eingang wird es vom Router abgearbeitet und wenn ich mich richtig erinnere ignoriert der dabei die Fehlermails.

Gruß
Dirk

Patri · 6. August 2007

NACH Eingang neuer Mails

taurec · 6. August 2007

Was mir in deinem Agenten fehlt ist ein Aufruf von UpdateProcessedDoc.
Ohne diesen Aufruf sind die Dokumente so lange sie vorhanden sind bei jedem Aufruf neu für ihn, wenn du über UnprocessedDocuments arbeitest

Patri · 7. August 2007

steht in der zweiten Zeile nach dem Anfang der For-Schleife

taurec · 7. August 2007

Und dazu sagt dann die Hilfe:

Zitat

If a marked document is modified, it is unmarked and will be processed by the next invocation of the agent.

Und da du wenn du das Dokument nicht löschst es auch veränderst wird es immer wieder bearbeitet.
Ein UpdateProcessedDoc muss immer ans Ende bevor das nächste Dokument geholt wird, nie aber bevor Aktionen mit dem Dokument durchgeführt werden

Patri · 7. August 2007

*den Kopf auf den Tisch hau*

okay okay... problem erkannt... problem gebannt

Teilen