Mal ein Programmbeispiel:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
ohne_Umlaute = Evaluate({@replacesubstring("} + doc.subject(0) + {";"Ä":"ä":"Ö":"ö":"Ü":"ü";"Ae":"ae":"Oe":"oe":"Ue":"ue")})
subject_laenge_max50 = Evaluate({@Left("} +ohne_Umlaute(0) + {";50)})Nein, da ist kein Fehler drin. Aber je nachdem, wo Du es laufen laesst, koennte es natuerlich sein, dass meine Objekte dort nicht so erzeugt werden. War halt nur ein Beispielcode.
Ich hatte den Code in einem Button in einer Maske getestet. Wo hast Du ihn denn rein kopiert??
Ansonsten mal den Debugger mitlaufen lassen und die Zeile angeben in der der Fehler auftritt.
P.S.: Ich sehe gerade...das Ganze soll in einem Agent laufen. Dort darfst Du das Object uidocument und uiworkspace nicht benutzen.
Das Objekt Doc habt ihr dort ja schon irgendwie erzeugt. Muss dann halt auf die Variable angepasst werden.
Schau dir mal die 'UnprocessedDocuments'-Methode in der Hilfe an, bzw. hier hatten wir auch schon einige Threads, wo danach gefragt wurde. Im Grunde kannst du gleich das erste Beispiel zu der Methode aus der Hilfe nehmen und den Schleifeninhalt mit dnotes' Evaluate-Aufruf abändern. Allerdings dann nicht -anders als im Beispiel- den Aufruf der 'UpdateProcessedDoc'-Methode vergessen (ich frage mich seit langem, wann IBM das mal ändert...)
Naja, du musst natürlich noch das Feld 'Subject' umbiegen:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
[b]Dim item as NotesItem[/b]
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
ohne_Umlaute = Evaluate({@replacesubstring("} + doc.subject(0) + {";"Ä":"ä":"Ö":"ö":"Ü":"ü";"Ae":"ae":"Oe":"oe":"Ue":"ue")})
subject_laenge_max50 = Evaluate({@Left("} + ohne_Umlaute(0) + {";50)})
[b]Set item = doc.ReplaceItemValue("Subject", subject_laenge_max50)
Call doc.Save(True, False)[/b]
Call session.UpdateProcessedDoc( doc )
Set doc = collection.GetNextDocument(doc)
Wend
End SubVielen lieben Dank... Jetzt hat es geklappt.
Ohne designer schulung sollte man vielelicht sowas sein lassen
Nicht Vor sondern nach dem Eingang einer neuen Mail sollte funktionieren.
Was ist denn an dem Code nicht "einfach"??
Und wenn Du genau liest... in dem Code ist die Funktion @ReplaceSubstring doch drin. Also wird man sie wohl auch in einer einfachen Funktion benutzen koennen.
Nur weiss ich grad gar nicht, was Du mit einer einfachen 'Funktion meinst.
Das Problem ist nicht welche Art von Code in dem Agenten steckt. Hierbei ist es voellig egal, ob Script oder Formel. Das Problem ist, dass das Feld Subject fuer Dich nicht schnell genug geaendert wird. Von welcher Art Code auch immer.
Ich frag mich grad, ob es nicht machbar ist, direkt in der Subject-Feld die Input Translation reinzubasteln. Das sollte doch eigentlich tun und dann dürfte es keine Probleme mehr mit diesem komischen Tool geben?
Alternativ gäbe es eine 2. Möglichkeit. Dazu ist zu klären, wie das Tool sich die Dokumente aus der DB greift. Geht es auf eine spezielle View (!= 'Alle dokumente'), wäre es sinnig, die View so zu verbiegen, dass sie nur Dokumente anzeigt, die bereits vom Agenten bearbeitet wurden. Entweder wird ein Flag im Dokument gesetzt, oder die View wird so verbogen, dass sie nur Dokumente zeigt, deren Subject<50 Zeichen ist...
Wie kann ich das machen, ich meine mit Input translation? ich weiß es nicht. 
also @ThisValue liefert Dir den Wert des aktuellen Feldes und @ReplaceSubString tauscht.
Quelle := "Ä":"ä":"Ö":"ö":"Ü":"ü";
Ziel := "Ae":"ae":"Oe":"oe":"Ue":"ue";
@ReplaceSubString(@ThisValue; Quelle; Ziel)
Gruß
Dirk