Fehler im Script

[skywook]

Hallo,
bräuchte mal Eure Hilfe. Im folgenden Script soll bei allen markierten Dokumenten in der Ansicht ein Feldwert ausgegeben werden. Leider passiert nichts. Für einen Tipp wäre ich dankbar.

Sub Liga
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim dokid As String
   
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Set doc = collection.GetFirstDocument()
   While Not(doc Is Nothing)
      Messagebox doc.fieldGetText("UName")
      Set doc = collection.GetNextDocument(doc)
   Wend
End Sub

[Glombi]

Messagebox doc.GetItemValue("UName")(0)
oder kürzer
Messagebox doc.UName(0)

Du musst eine Methode der Backendklasse NotesDocument verwenden.

Andreas

[skywook]

Geht leider nicht. Bei der View handelt es sich um die Kalenderansicht der Mail-DB.

[Glombi]

Kannst Du mal mehr sagen? So wird ja kein Mensch daraus schlau. Was soll denn UName für ein Feld sein?
Was ist "Sub Liga"? Wo ist der Code überhaupt? In einem Agenten?

[Axel]

Hi,

was funktioniert den nicht. Sag mal ein bisschen Genaueres. Das sollte auch mit einer Kalenderansicht funktionieren.

Wie rufst du den das Script auf, Agent oder Aktion etc. ?

Axel

[skywook]

Hier die Details:
Habe die Mail-DB von R5 modifiziert: Wird ein Kalendereintrag erzeugt , wird dieser, bei Auswahl einer bestimmten Kategorie in eine andere DB übertragen. Diese Einträge werden bei Änderungen abgeglichen. Das Problem habe nich nur beim Löschen eines Kalendereintrages in der Mail-DB. Dafür brauche ich dieses Script. Anhand von diesem Feld (ist momentan falsch bezeichnet) wird das Dokument in der Übertrag-DB angesprochen.  

[koehlerbv]

Wir sind immer noch nicht schlauer: Wo steht Dein Code ? In einem Agent ? Im Query- oder PostSave des Kalendereintrags ? Oder wo ?
Von diesen Umständen ist vor allem abhängig, was NotesDatabase.UnProcessedDocuments bewirkt. In Deinem Falle wohl nix ... Bau mal nach der Bildung Deiner Collection ein msgbox Cstr (coll.Count) ein, ich befürchte, Du siehst 'ne Null.

Bernhard

[skywook]

Sorry, ist ein eigenes Script in den Script-Bibliotheken.

[Axel]

Hi,

dann kann das so nicht gehen. Pack den Code in eine Aktion oder einen Agenten (mit der Option für ausgewählte Dokumente).

Dan sollte das funktionieren.


Axel