Dim doc As NotesDocument
Dim item As NotesItem
Set doc = Source.Document
Set item = doc.GetFirstItem ("RTF")
If Not (item Is Nothing) Then
Messagebox Cstr (item.LastModified)
End IfKannst Du noch genauere Rahmenbedingungen angeben ?
Form-Alias war bisher = Form-Name.
Das Verhalten hat sich etwas geändert, als ich den Alias gelöscht habe :P
Bin weiter am evaluieren. Ist allerdings sehr anstrengend. Ich komme mir vor als wie wenn ich einen verlorenen Haustürschlüssel in der Sahara suche.....
Mystisch:
Ich habe folgenden Code in PostOpen und -Save, und es geht sich sauber:CodeDim doc As NotesDocument Dim item As NotesItem Set doc = Source.Document Set item = doc.GetFirstItem ("RTF") If Not (item Is Nothing) Then Messagebox Cstr (item.LastModified) End If
Kannst Du noch genauere Rahmenbedingungen angeben ?
Ciao,
Bernhard
Die item.ValueLength property funktioniert nämlich zuverlässig.Genau so hatte ich das auch letztens erst gelöst, weil mir item.LastModified nicht zuverlässig erschien:
Diese in Verbindung mit item.Text zum Vergleich vorher/nachher kann imho schon ziemlich zuverlässig sagen ob es eine Änderung gab, auch wenn das nicht 100% sauber ist, gerade wenn der Text im Dokument sehr lange ist.....