Domino 9 und frühere Versionen > Entwicklung

Agent

(1/2) > >>

Raimund:
Hi Entwickler. ::)

Problemstellung:
1. Ein Agent soll Mails mit dem Subject "Reservierungsanforderung einer Ressource" übertragen.
Das tut er auch. Problem besteht darin, dass nach Eingang von Mails die ungelesenen Docs mit dem Subject immer wieder gesendet werden.
2. Bei der Übertragung wird der Absender nicht angezeigt.

Die Frage: wie kann ich es verbessern und optimieren?
Vielleicht hat jemand eine Idee?

Vielen Dank für die Hilfe im Voraus.

Gruß
Raimund

Sub Initialize
     Dim sess As New NotesSession
     Dim db As NotesDatabase
     Dim mails As NotesDocumentCollection
     Dim doc As NotesDocument
     
     EMail = "Raimund/DE/..."
     
     Set db = sess.CurrentDatabase
     Set mails = db.unprocessedDocuments
     
Set doc = mails.GetFirstDocument
While Not(doc Is Nothing)
If doc.Subject(0) = "Reservierungsanforderung einer Ressource" Then
     doc.sendto = EMail
     Call doc.send(0)
End If
           
Set doc = mails.GetNextDocument(doc)
Wend
End SubTEXT

Christopher:
Hallo Raimund,

das ist ja auf einer Art logisch das er die Mail wieder sendet da ja wieder im Subjet die Bedingung erfüllt ist. Ich würde in den Agenten noch was einbauen das die Mails ein Feld erhalten z.B. Gesendet="ja" und in der Schleife überprüfen ob im Feld gesendet ja steht. Wenn ja steht soll er die Mail nicht mehr senden.

Gruß Christopher

Raimund:
Hi Christopher,

ja, das wäre vielleicht eine Möglichkeit. Muss ich schauen, ob der Agent die ungelesenen Mails als gesendet speichert.
Bin "leider" noch in der Lernphase. :'(

Gruß
Raimund

Christopher:
Hallo Raimund,

bin auch noch in der Lerphase  ;D



Gruß Christopher

eknori:
Ich machs mal so aus dem Kopf

Sub Initialize
Dim sess As New NotesSession
Dim db As NotesDatabase
Dim mails As NotesDocumentCollection
Dim doc As NotesDocument
 
EMail = "Raimund/DE/..."
 
Set db = sess.CurrentDatabase
Set mails = db.unprocessedDocuments
 
Set doc = mails.GetFirstDocument
While Not(doc Is Nothing)
If doc.Subject(0) = "Reservierungsanforderung einer Ressource" AND doc.AlreadySent = "" Then
 doc.sendto = EMail
 Call doc.send(0)
 doc.AlreadySent = "YES"
 Call doc.save (true,true)
End If
 
Set doc = mails.GetNextDocument(doc)
Wend
End Sub

Sche... Lufthansa; wieder mal ne Stunde verspätung  :P :P

eknori

Navigation

[0] Themen-Index

[#] Nächste Seite