Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Raimund am 14.05.02 - 18:18:57

Titel: Agent
Beitrag von: Raimund am 14.05.02 - 18:18:57

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

Titel: Re: Agent
Beitrag von: Christopher am 14.05.02 - 18:27:04

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

Titel: Re: Agent
Beitrag von: Raimund am 14.05.02 - 18:41:16

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

Titel: Re: Agent
Beitrag von: Christopher am 14.05.02 - 18:48:56

Hallo Raimund,

bin auch noch in der Lerphase  ;D



Gruß Christopher

Titel: Re: Agent
Beitrag von: eknori (retired) am 14.05.02 - 18:54:48

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

Titel: Re: Agent
Beitrag von: Raimund am 14.05.02 - 19:21:18

Hi eknori, :)

vielen Dank für die Hilfe.
Werde morgen in der Arbeit es gleich ausprobieren.

Gibt es noch eine Möglichkeit, dass der Absender, welcher die Ressource bucht, angezeigt wird?


Gruß
Raimund

Titel: Re: Agent
Beitrag von: Raimund am 15.05.02 - 08:48:22

Hi eknori, Hi Entwickler,

habe den Agenten gerade ausprobiert.
Nur, mein Posteingang war dann mit ca. 11.000!!! Mails  ???mit dem Subject "Reservierung ..." voll.
Warum?
Vielleicht hast Du eine Idee?

Gruß
Raimund

Titel: Re: Agent
Beitrag von: SL am 15.05.02 - 10:58:44

Hi Raimund,

es muß heißen
If doc.Subject(0) = "Reservierungsanforderung einer Ressource" AND doc.AlreadySent (0)= ""

Ist aber eigentlich keine Erklärung für die 11.000 Mails  :o

Gruß Andreas

Titel: Re: Agent
Beitrag von: Raimund am 15.05.02 - 11:25:14

Hi Andreas,

vielen Dank für die Korrektur.

Für die Mails war ein anderer Agent verantwortlich.
War ehe alles auf dem Entwicklungs-Server. ;D


Gruß
Raimund