Per Script für einen Datensatz eine Kategorie hinzufügen

[LoNo007]

Hallo,

ich möche in der aktuellen Ansicht per Knopf dem aktiven Datensatz die Kategorie "Erledigt" hinzufügen. Folgendes Script sollte die bestehende Kategorie auslesen und um "Erledigt" ergänzen.
Leider wird keine Kategorie ausgelesen. Das Schreiben funktioniert.
Kann mir jemand helfen?

MfG

Oliver

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim view As NotesUIView
   Dim uidoc As NotesUIDocument
   Dim category As Variant
   
   Set view = workspace.CurrentView
   category = view.CaretCategory
   
   Messagebox category
   
   Set uidoc = workspace.EditDocument      
   Call uidoc.Categorize( category & ";ERLEDIGT" )
   Call uidoc.Close
   
End Sub

[Axel]

Das kann so auch nicht funktionieren.

Schau die in der Hilfe mal die Methode FieldAppendText aus der Klasse NotesUIDocument an.
Das sollte dir weiterhelfen.

Außerdem soltest du das Dokument nach der Änderung auch Speichern und nicht nur Schließen.


Axel

[ascabg]

Hallo,

Warum unbedingt per Script?

Ein Agent mit "einfacher Aktion" - "Feldwert aendern" "Wert anhaengen"
(siehe Screenshot)
erledigt dieses doch genauso.


Andreas

[LoNo007]

Danke Axel, Andreas für die Hilfe.

@ Andreas: Der Tip mit der "einfachen Aktion" ist 100% das was ich brauchte! Geniale Ideen sind eben simpel  .

Nochmals Herzlichen Dank, Problem gelöst. 

MfG

Oliver