anhänge auflisten

astra · 22. August 2005

hi,

ich liste zur zeit anhänge von dokumenten in einer listbox auf die ich aus der NotesViewEntryCollection erhalte. da viele anhänge in den dokumenten unter dem view "File" gespeichert sind, mach immer getfirstitem, lösche das item danach um wieder an den nächsten view mit dem namen "file" zu kommen(dies auch wieder dann mit getfirstitem). wenn ich dann zwischendurch mal ein anderes dokument begutachte und dann wieder das anklicke sind alle items natürlich removed... also wollt ich das dokument vorher zwischenspeichern in einem anderen dokument und dann das in der NotesViewEntryCollection mit dem wieder überschreiben nachdem ich die anhänge ausgelesen hab. geht aber nicht weil schreibgeschützt. gibs eine möglichkeit den urzustand des dokuments in der NotesViewEntryCollection nachdem removen der items wieder herzustellen? oder eine andere lösung?

taurec · 22. August 2005

Wenn du die Namen der Anhänge nur anzeigen willst, mach doch in die Spalte die du auslesen willst ein @AttachmentNames rein.
Oder habe ich da was falsch verstanden ?

astra · 22. August 2005

weiß ich auch nicht weil ich das von dir nicht versteh...:-)
also ich will einfach nur die namen der anhänge auslesen das ist richtig. ich mach das über com.

taurec · 22. August 2005

Kannst du in der Datenbank eine Ansicht erstellen oder anpassen ?

Dann füg dort eine neue Spalte ein mit der Formel @AttachmentNames.
Diese kannst du dann über die NotesViewEntryCollection einfach auslesen und hast ohne Veränderung an den Dokumenten alle AttachmentNamen

astra · 22. August 2005

nein das geht leider nicht......
also hatte ich in der designer-hilfe die methode mit dem removen gesehen.

taurec · 22. August 2005

Und wieso gehst du die Items nicht über die Eigenschaft Items des NotesDocuments durch und liest da die Attachment Namen aus, wenn der Item-Name $FILE ist ?

Diali · 22. August 2005

wieso removen :-?

Code

Dim liste() As String
Redim liste(0)


' Hier noch die Schleife über die Dokumente starten
' und das Objekt rtitem (Dein RichText-Item) zuweisen


If ( ritem.Type = RICHTEXT ) Then
	Forall o In ritem.EmbeddedObjects
		If (o.Type = EMBED_ATTACHMENT) Then
			If liste(0) <> "" Then
				Redim Preserve liste(Ubound(Liste) + 1)
			End If
			liste(Ubound(Liste)) = o.Source
		End If
	End Forall
End If


' Schleife über dei Dokumente beenden

Alles anzeigen

In dem Array liste findest Du alle Namen der Dateianhänge.

Gruß
Dirk

astra · 22. August 2005

ok, danke.

Teilen