Alle Items eines Dokuments auflisten

[Fragensteller]

Hi leute, mal wieder ne Frage,
habe das was ich hier im Forum gefunden habe getestet aber ohne Erfolg.


Ich möchte alle Namen der Items eines Dokuments ausgeben.
Folgendes dachte ich sollte laufen aber leider Sackgasse.
Der Grund ist, das ich die Namen, also die Keys nicht unbedingt kenne, kann daher also nicht mit "getfirstitem" arbeiten.

Code

Sub Initialize

	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim docCol As NotesDocumentCollection
	Dim erfolg As Variant
	Dim newDoc As NotesDocument
	Dim item As NotesItem

	
	Set db = s.Currentdatabase
	Set docCol = db.Alldocuments
		
	Set doc = docCol.Getfirstdocument()
	
	While Not (doc Is Nothing) 'alle Dokumente durchgehen
				
		ForAll elem In doc.Items
			Print elem
		End ForAll
		
		'Set doc = view.Getnextdocument(doc)
	Wend

End Sub

[TRO]

print elem.Name

[Fragensteller]

Danke...
na toll. habe ja wohl alles auspropiert aber auf Name bin ich nicht gekommen... war immer bei Key.

Suppi.

[CarstenB]

Was ist denn der Hintergrund?
Wenn du dir alle Items eines Dokuments anzeigen lassen willst, kannst du auch den Document Viewer benutzen, dann bekommst du alle Items inkl. Werte eines Dokumentes aufgelistet

http://www.openntf.org/projects/pmt.nsf/ProjectLookup/Document%20Viewer

[Peter Klett]

Danke...
na toll. habe ja wohl alles auspropiert aber auf Name bin ich nicht gekommen... war immer bei Key.

Suppi.

Steht in der Notes-Designerhilfe, ist eine von den Eigenschaften (Properties) von NotesItem

[Christian Weiß]

Man könnte dies auch mt Hilfe der Formelsprache und der Funktion @DocFields erreichen.

Code

strHeader1 := "Show String";
strPrompt   := "Please select the key of the string.";
strHeader2 := "Value";
strField := @Prompt( [OkCancelEditCombo]; strHeader1; strPrompt; ""; @DocFields);
@Prompt([Ok]; strHeader2; "Field '" + strField +  "' = " + @GetField( strField ) )