Erstellen von Objekten durch Buttons

Hallo!
Ich komme fehlerlos in die Vorschau. Wenn ich dann aber den Aktionsknopf drücke kommt der Fehler. Kann ich mir dann mit dem Debugger trotzdem anschauen, wo der Fehler liegt?
Wenn ja, wie? Danke.

Nachtrag: Ich habe ihr gefunden.

Hallo!

Der "Debugger" bleibt bei dieser Zeile stehen:

Set Item = doc.GetItem(Original)

Die Originalzeile von "Diali" lautet wie folgt:

set Item = doc.GetItem("FeldName") ' Feld als Objekt holen

Welcher Feldname ist denn hier gemeint, aus welchem Dokument?
Die Hauptmaske heisst "Thema", die Kommentarmaske "Kommentar". Nun wird doch die Originalmaske ein Objekt. Sollte da nicht der Name der Maske hinein oder bin ich da auf dem Holzweg?

Der Debugger stoppt immernoch an der selben Stelle.
Muss ich noch eine Variable definieren oder ähnliches?

Hallo nochmal!

Ich habe das Script in der Aktion "Kommentar" eingefügt und die Name der Masken angegeben. Welche Inhalte müssen denn dann noch da rein?

Hallo

Ich komme hier glaube ich nicht weiter.
Im Netz (OpenNTF) habe ich eine Art Kommentarfunktion gefunden, jedoch recht einfach und auf einer Maske basierend.
Leider bekomme ich sie nicht zum laufen.
Könnte mir bitte jemand sagen, ob diese etwas taugt?

Sub CommentsHistory (theSource As NotesUIDocument)
Set doc = uidoc.Document
Set commentsItem = doc.GetFirstItem("CommentsHistory")
Set commentsItemA = doc.GetFirstItem("Comments")

Set Temprtitem = doc.GetFirstItem("TempComments")
If Temprtitem Is Nothing Then
Set Temprtitem = doc.CreateRichTextItem("TempComments")
End If

If commentsItem Is Nothing Then
Set commentsItem = New NotesRichTextItem(doc, "CommentsHistory")
End If

If commentsItemA Is Nothing Then
Set commentsItemA = New NotesRichTextItem(doc, "Comments")
End If

If Not doc.Comments ="" Then
User = Evaluate ("@Text(@Name([CN];@UserName))")
UserTime$ = User(0) + " @ " + Cstr (Now)

Call Temprtitem.AddNewLine(1)
Call Temprtitem.AppendText(UserTime$)
Call Temprtitem.AddNewLine(1)

If ( commentsItemA.Type = RICHTEXT) Then
Call Temprtitem.AppendRTItem(commentsItemA)
Else
Set commentsItemA = doc.CopyItem( commentsItemA, "Comments" )
End If

Call commentsItem.AppendRTItem(Temprtitem)
Call commentsItem.AddNewLine(1)
Call commentsItem.AppendText ( "---------------------------" )
Call Temprtitem.Remove
Call doc.ReplaceItemValue( "Comments", "")
Call doc.save(True,True)
End If

End Sub

Hallo taurec!

Ausgangspunkt ist dieses Script:

Zitat

Sub Click(Source As Button)

Dim session As NotesSession
dim ws as NotesUIWorkSpace
Dim db As NotesDatabase
dim dc as NotesDocumentCollection
dim doc as NotesDocument
dim item as NotesItem
dim doc_neu as NotesDocument
dim item_neu as NotesItem

set session = new NotesSession ' neue Instanz von Session
set ws = New NotesUIWorkSpace ' analog zu session
set db = session.CurrentDatabase ' aktuelle DB als Objekt holen
set dc = db.UnprocessedDocuments ' Objekt dc erzeugen
set doc = dc.GetFirstDocument ' erstes Dokument in der DocumentCollection als Objekt holen
set Item = doc.GetItem("FeldName") ' Feld als Objekt holen

set doc_neu = New NotesDocument(db) ' neues Dokument im Objekt db erzeugen / Dok ist nur im Speicher und nicht physikalisch da!

set item_neu = item.CopyItemToDocument(doc_neu, "NameDesFeldesImNeuenDokument") ' Feld kopieren in neues Dokument
call doc_neu.Save(true, true, true) ' neues Dokuemt speichern
call ws.EditDocument(true, doc_neu) ' neues Dokument ins UI (FrontEnd) bringen
call doc_neu.RemovePermanently(true) ' Backend-Dokument aus der DB löschen

End Sub

Alles anzeigen

Ich weiss jedoch nicht genau wo es zu platzieren ist und wie ich die Maske "Kommentar" öffne um das neue Dokument zu erzeugen.
Als Formel wäre das ja:

Zitat

@Command([Compose]; "Kommentarblatt")

Muss das Script dann aber in die Aktion "Kommentarblatt" speichern? Ich habe doch nur en Dokument, dass mit einer Maske generiere und mit einer anderen immer wieder etwas dran hänge?