Domino 9 und frühere Versionen > ND6: Entwicklung

Verschieben von Mails je nach Ende des Betreffs

<< < (2/4) > >>

Gandhi:
Nur mal so eine Frage:
Wenn Ihr offensichtlich wenigstens Admins habt, die sich auch mit Entwicklung wenigstens rudimentär auskennen sollten, warum tust Du Dir dieses Selbstexperiment dann an?

mullers:
Hallo,

@ Markus

vielen Dank für die Info. Mein Lotus Notes Ansprechpartner hat den Agenten nun so eingerichtet, dass ich hier nun Änderungsrechte habe. Allerdings hat das Einrichten "Vor Eingang" nicht geklappt. Na ja. So klappt es auch.

@ Gandhi

Aus Interesse, aus Spass eigene Lösungen zu finden und zu entwickeln und zur Zeiteinsparung. Ist das verkehrt? :-:

Schönen Gruß

Andreas

mullers:
Guten Morgen Zusammen,

ich bräuchte nochmal Eure Hilfe.
Ich habe nun folgendes Script.

Sub Initialize
   
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As  NotesDocument
   Dim collection As NotesDocumentCollection
   Dim Endnummer As Variant
   Set db = s.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Set doc = collection.GetFirstDocument()
   
   While Not(doc Is Nothing)
      Endnummer = Right(doc.GetItemValue("Subject")(0), 2)
      If Endnummer <= 29 Then
         Call doc.PutInFolder("SB1",True)
         Call doc.RemoveFromFolder("($Inbox)")
      Elseif Endnummer <= 52 Then         
         Call doc.PutInFolder("SB2",True)
         Call doc.RemoveFromFolder("($Inbox)")
      Elseif Endnummer <= 75 Then         
         Call doc.PutInFolder("SB3",True)
         Call doc.RemoveFromFolder("($Inbox)")   
      Elseif Endnummer <= 85 Then         
         Call doc.PutInFolder("SB4",True)
         Call doc.RemoveFromFolder("($Inbox)")   
      Elseif Endnummer <= 99 Then         
         Call doc.PutInFolder("SB5",True)
         Call doc.RemoveFromFolder("($Inbox)")            
      End If
      Set doc = collection.GetNextDocument(doc)
   Wend
   
End Sub

Dies läuft auch wunderbar. Allerdings sucht es alle Dokumente in allen Ordner ab und verschiebt es entsprechend.
Ist es möglich, dass der Agent lediglich die Mails aus dem Eingang prüft?

Hintergrund: Die Sachbearbeiter verschieben nach Abarbeitung die Mails in in einen Ordner (z.B. SB5/Erledigt.). Derzeit verschiebt der Agent nach Aktivierung diese Mails auch wieder in den Ordner SB5.

Ich hoffe hier könnt mir helfen.

Vielen Dank.

Andreas

ascabg:
Hallo,

Wie ist denn Dein Agent eingestellt?

Wenn Du mit "UnprocessedDocuments" arbeitest solltest Du auch nach Bearbeiten des Dokumentes dieses auch als von dem Agenten als bearbeitet kennzeichnen.

siehe auch hierzu einen Auszug aus der Designer-Hilfe.

--- Zitat ---For agents that run on new and modified documents, newly received mail documents, pasted documents, or newly modified documents, you must use the UpdateProcessedDoc method in NotesSession to mark each document as "processed," which ensures that a document gets processed by the agent only once (unless it's modified, mailed, or pasted again). If you do not call this method for each document, the agent processes the same documents the next time it runs.

--- Ende Zitat ---


Andreas

mullers:
Hallo Andreas,

vielen Dank, dass Du mir wieder so schnell hilfst.

Der Agent ist auf Periodisch mit Zeitplan von 5 Minuten eingestellt ("vor Maileingang" und "nach Maileingang" lösten nicht den Agenten aus).  Als Ziel ist "Alle neuen und geänderten Dokumente" ausgewählt.

Ich habe nun folgende Zeile eingebaut (nach der If-Schleife).

Call s.UpdateProcessedDoc(doc) 

Dennoch greift das Makro auf die verschobenen Mails (Ordner erledigt) zu.
Wird das Dokument durch das manuelle Verschieben wieder als Unprocessed gesetzt??

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete