Hallo,
nein eben nicht! In den Eigensschaften des Dokuments taucht das Richtextfeld x-mal mit unterschiedlichem Inhalt auf. Hab jetzt auch den Code gefunden, über den die Sachen da reingeschrieben wurden. Häng ich unten mal an. Demnach soll er doch den Inhalt in dem Feld fd_searches anhängen. Aber eben dieses Feld gibt es laut den Dokumenteneigenschaften in den Dokumenten mehrfach mit unterschiedlichem Inhalt und ich komm editiermässig nur an den Inhalt des ersten Feldes dran. Scheinabr legt Notes ein neues Feld gleichen Namens an, wenn der Inhalt des ersten eine gewisse Größe überschrietet. Hab ich schon mal irgendwo gelesen, aber wie kommt man an die Sachen wieder ran. Hoffe, ich hab mich jetzt etwas klarer ausgedrückt und irgendwer weiß Rat.
Danke und hier der Import-Code:
Sub Initialize
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim maildb As NotesDatabase
Dim projectdb As New NotesDatabase ("","")
Dim collection As NotesDocumentCollection
Dim uidoc As NotesUIDocument
Dim projectdoc As Notesdocument
Dim maildoc As Notesdocument
Dim rtitemmail As Variant
Dim rtitemproject As Variant
Set maildb=session.CurrentDatabase
Set projectdb = New Notesdatabase( "Server","DB.nsf" )
Set uidoc = workspace.CurrentDocument
If uidoc.EditMode = True Then
Call uidoc.save
End If
Set maildoc = uidoc.Document
Set rtitemmail = maildoc.GetFirstItem("Body")
Set collection = workspace.PickListCollection(1, True,_
"Server","DB.nsf","all_num","My Dialog", _
"Please select a document.")
Set projectdoc = collection.GetFirstDocument
pj=projectdoc.fd_pnr
Set rtitemproject = projectdoc.GetFirstItem( "fd_searches" )
If ( rtitemmail.Type = RICHTEXT And _
rtitemproject.Type = RICHTEXT ) Then
Call rtitemproject.AddNewLine(1)
Call rtitemproject.AppendRTItem( rtitemmail )
Call projectdoc.Save(False, True)
End If
Msgbox "Recherche erfolgreich an Projekt "+ Cstr(pj(0)) + " angehängt."
End Sub