Hallo,
ich benutze dieses Script in einer Maske im Queryclose, da klappt es auch wie gewünscht es ließt das Feld CommentHistory ein fügt den Inhalt des neuen Feldes ein und löscht den Inhalt aus dem neuen Feld.
Nun wollte ich das in einer anderen DB in eine Schaltfläche übertragen. Nun kommt da aber immer die Fehlermeldung " Not a member: Document"
Set doc = session.CurrentDatabase.GetDocumentByUNID(Source.Document.UniversalID) hat da jemand eine Idee?
Sub Click(Source As Button)
On Error Goto Oops
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc = session.CurrentDatabase.GetDocumentByUNID(Source.Document.UniversalID) Dim vDetails As Variant
Set vDetails = doc.GetFirstItem("Comments")
Dim vHistory As Variant
Set vHistory = doc.GetFirstItem("CommentHistory")
If vDetails.valueLength < 245 Then
Goto TheEnd
End If
If (vDetails.Type = RICHTEXT And vHistory.Type = RICHTEXT) Then
Call vHistory.AppendText(Format$(Now, "mm/dd/yy hh:nn AM/PM") & " von " & session.CommonUserName & ": ")
Call vHistory.AppendRTItem(vDetails)
Call vHistory.AddNewLine(1)
Call vDetails.Remove
Call doc.Save(True, False)
End If
TheEnd:
Continue = True
Exit Sub
Oops:
Resume TheEnd
End Sub
Ich muss immer wieder feststellen ich habe wirklich keine Ahnung von LotusScript gibt es für die besondere Thematik mit RTF's nen Tuto? ???
Ich hätte jetzt gedacht ein
Call doc.Save(True, False)
Call doc.Reload
würde abhilfe schaffen, was es nicht tut. Ich bin überfragt
Thomas