Version einer Schablone

wenn ich mich recht entsinne ist das ein gemeinsames feld. daher könntest du über eine notecollection den inhalt auslesen.

müsstest du einfach mal testen.

Das gemeinsame Feld nennt sich $TemplateBuild.

Und dort steht im Element $TemplateBuild die Version drin

Am Einfachsten schnappst du dir ein solches Feld aus einer anderen DB, änderst die Informationen und gut is...

auszug aus der notes hilfe (unglaublich das man die auch benutzen kann ...)

Zitat

This agent builds a note collection that consists of notes for shared fields.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase

REM Open xml file named after current database
Dim stream As NotesStream
Set stream = session.CreateStream
path$ = "c:\dxl\"
filename$ = Left(db.FileName, Len(db.FileName) - 3) & "dxl"
filename$ = path$ & filename$
If Not stream.Open(filename$) Then
Messagebox "Cannot open " & filename$,, "Error"
Exit Sub
End If
Call stream.Truncate

'//das ist der entscheidende teil
REM Create note collection
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
nc.SelectSharedFields = True
Call nc.BuildCollection
'//ende

REM Export note collection as DXL
Dim exporter As NotesDXLExporter
Set exporter = session.CreateDXLExporter(nc, stream)
Call exporter.Process
End Sub

Alles anzeigen

anstatt dem stream sagst du halt
nid = nc.GetFirstNoteId
Set doc = db.GetDocumentByID(nid)

und dann hast du das design element als notesdokument und kannst die felder ganz normal zugreifen.

version = doc.feldname(0)

Zitat

Benim schrieb:
Ändern!?!? Ich möchte es einfach nur auslesen und anzeigen, mehr möchte ich eigentlich gar nicht. Die Frage ist wie macht ich das.

Wer lesen kann, ist klar im Vorteil, ich geb's zu. Hab's nur überflogen und meinte zu verstehen, dass du das für andere DBs brauchst.

msgbox doc.~$TemplateBuild(0)