Domino 9 und frühere Versionen > ND8: Entwicklung

Fehlermeldung "Die Sammlung ist beschäftigt" im LS Agenten

<< < (2/3) > >>

Bruce Willis:
Danke fürs Feedback!

Jetzt kommt's plötzlich in English (ich hab nix getan!!!)...   ;)

4678
... The collection is busy

Gruß
Leo

Glombi:
Dann haben die wohl den Text der meldung geändert. Die Error Nummer 4678 ist das mit "...invalid".

siehe
http://planetlotus.org/profiles/erik-brooks_81806

Schöner neuer Fehler in Notes !

Andreas

Bruce Willis:
Danke, Andreas.
Ich frage mich, warum der Server sowas gerade heute machen sollte und wie ich dies unterbinden kann...


--- Code: ---This error can occur when performing a GetDocumentByKey/GetAllDocumentsByKey
or GetAllEntriesByKey/GetEntryByKey on a view that is constantly being updated by
 the server. After a certain number of unsuccessful attempts to perform the
GetDocument/Entry call, the error is returned preventing an infinite loop/hang

--- Ende Code ---

Glombi:
IBM empfiehlt mittels error Handling den Fehler abzufangen und dann im error handler ein view.refresh zu machen.
Andreas

Bruce Willis:
Das habe ich fest drin...   :-:
Scheinbar macht heute der Server etwas, was die Zeile Set vec = v.AllEntries nicht verträgt...

   Dim LogName As New NotesLog("Agent 'SetNewInfo'")   'LE 01.05.2010
   
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument   'Email oder Einladung zum Anhängen
   Dim d As NotesDocument      'Ticket zum Anhängen
   Dim dc As NotesDocumentCollection
   Dim vec As NotesViewEntryCollection   
   Dim v As NotesView
   Dim xFrom, xSubject, xTicketNr, xDateTime, xMailTextSmart, BodyText As String
   Dim Stelle As String    'LE 21.01.2011 um zu erfahren, wo in etwa der Script abbricht
   Dim CN As NotesName
   Dim item As NotesItem
   Dim rtitemA  As Variant
   Dim agent As NotesAgent
   Dim doccount, i, x As Integer
   Dim n As Integer   'LE 02.05.2010
   n = 0            'LE 02.05.2010
   
   Dim Einlad As String       'LE 04.02.2011 Zusatztext für Aktuellen Stand
   Dim tkAnsicht As String   
   Dim NewMailText As String
   Dim xSubjectS As String ' 02.02.2012 Subjects aller Mails sammeln
   Dim NewMailTextKurz As String   'Text der Email bei bestimmten Worten kürzen
   Dim NewHistory As String   'Feld History wird hier ersetzt
   Dim NewHistory1 As String   'Feld QuerDenker wird hier ersetzt
   Dim MailBodyNurText As String   'Feld BodyNurText der Email bei bestimmten Worten kürzen

   Dim rtitem As NotesRichTextItem      
   Dim ATextForMessage4, MailThema, MailThemaSD, MailAddress, subject, UserTech,UserTech1, dspUserTech, Empfaenger,Empfaenger_1, dspEmpfaenger,BodyNurText, History, UserTechAdd, UserTechAdd1, UserReq, Priority, NewProcess, Projects, Status, TextForMessage1, TextForMessage2, TextForMessage3  As String   
   Dim ticketNr As String
   Dim nam As NotesName
   Dim pMailAddress As String

   Set db = s.CurrentDatabase      'aktuelle Datenbank
   
   'Muss nach set db stehen!!!
   Dim msg As New NotesDocument(db)   
   
   On Error GoTo ABC 'LE: Fehlerbehandlung falls z.B. Feld "History" oder "History_1" zu groß ist

Stelle = "1"
   
   'Erweiterung für flexible Zuweisungen (nicht nur "Ticket" sondern auch "Translation" oder "Einkauf" etc)********   
   'Präfix in Email aus dem Profil holen
   Dim profile As NotesDocument   
   Set profile = db.GetProfileDocument ("pData")
   Dim prefix As String   
   prefix = profile.prE(0)
   
   ' Name der Ansicht "NewMailForTicket_XXX"aus dem Profil holen
   Dim nAnsicht As String   
   nAnsicht = profile.nMailA(0)      
   ' Ende Erweiterung für flexible Zuweisungen (nicht nur "Ticket" sondern auch "Translation" oder "Einkauf" etc)********   
   
   Set v = db.GetView(nAnsicht)   'Ansicht 'New Mail' auswählen
   
   'LE 28.04.2010 - Refresh für NewMailForTicket_XXX   
   '12.09.2012 Refresh wieder aktiviert wegen Löschprobleme / Markierungen
   Call v.Refresh()   
   
   Set vec = v.AllEntries         'alle Dokumente in der Ansicht 'New Mail'
   doccount = vec.Count         'Anzahl der Mail-Dokumente zählen
   
   Set doc = v.GetLastDocument      'erstes Dokument von unten in der Ansicht 'New Mail'
   
   '-----------ANFANG For-Next Schleife für jedes Dokument in der Ansicht 'New Mail'----------------------------------
   For i = 1 To doccount   
      Set item = doc.GetFirstItem("Subject")   'Feld Subject auswählen   

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete