Dateinamen von Attachments

GerdH · 18. Januar 2006

Hallo,

Für eine Archivlösung möchte ich Notes-Dokumente prüfen, ob Anhänge vorhanden sind, welche vom Archivsystem nicht verarbeitet werden können. Hierfür habe ich eine Liste mit Dateinamenserweiterungen (.doc, .txt, ...) hinterlegt, welche verarbeitet werden können. Nun sollen also alle Anhänge mit der Liste verglichen und eine Fehlermeldung ausgegeben werden, wenn ein Dokument einen Dateianhang enthält, dessen Typ nicht in der Liste hinterlegt ist.

Mein Problem ist nun, dass manchmal Notes intern einen anderen Namen als den Dateinamen vergibt. Wenn man beispielsweise einem Dokument zweimal die selbe Datei anhängt, so behält der erste Anhang seinen Dateinamen, der zweite bekommt aber einen anderen (ATTxxxxx). Somit kann ich die Dateiendung aber nicht mehr überprüfen. Dies kann man in den Feldeigenschaften bei $File nachvollziehen. Trotzdem muss der ursprüngliche Dateiname noch irgendwo vorhanden sein, da im Eigenschaftsdialog des Anhangs noch der richtige Name der Datei angezeigt wird.

Weiß jemand, wie ich an diesen Dateinamen herankommen kann?
Vielen Dank!

Hier die bisherige Prüfung:

Code

...
'Anhänge prüfen... 
	Dim vAttachNames As Variant
	Dim vAllowedFileExtensions As Variant
	Dim bAllow As Integer

	vAllowedFileExtensions = {Liste der erlaubten Dateinamenserweiterungen}
	vAttachNames = Evaluate(|@AttachmentNames|, doc )

	If vAttachNames(0) <> "" Then
		'Schleife über alle Anhänge
		Forall attachname In vAttachNames
			bAllow = False		

			'Schleife über alle erlaubten Dateinamenserweiterungen		
			Forall fileext In vAllowedFileExtensions
				If Lcase(fileext) = "." & Strrightback( Lcase(attachname), ".",1 ) Then
					bAllow = True
					Exit Forall
				End If
			End Forall

			If bAllow = False Then
				'Anhang ist nicht in den erlaubten
Dateinamenserweiterungen gefunden worden ==> Fehler und Abbruch	
				Messagebox "Die Datei " & attachname & " kann 
nicht archiviert werden." & Chr$(13) & "Der Vorgang wird abgebrochen.", 64, "Archivierung"
				Call doc.RemoveItem( "Archiv_flag" )
				Continue = False
				Exit Sub	
			End If

		End Forall
	End If
...

Alles anzeigen

taurec · 18. Januar 2006

Geh über die Klasse NotesEmbeddedObject.
In Source steht immer der ursprüngliche Dateiname

Diali · 18. Januar 2006

habs noch nicht probiert, aber bei notesEmbeddedObject.Source steht in der Hilfe:

If the NotesEmbeddedObject is a file attachment, this property returns the file name of the original file.

Damit sollte es eigentlich funktionieren.

Gruß
Dirk

dnotes · 18. Januar 2006

Das bringt auch nicht den urspruenglichen Namen.

taurec · 18. Januar 2006

dnotes

Also bei mir bringt es den, unabhängig davon wie die Datei in den Dokumeneigenschaften heisst.

Und wenn ich zwei identische Dateien habe dann kommt bei beiden der Dateiname wie er davor auf der Platte hiess

dnotes · 18. Januar 2006

Koenntest Du Deinen Code mal posten. Bei mir will er naemlich nicht

GerdH · 18. Januar 2006

Danke,

ich hatte die Notes-Hilfe so interpretiert, dass @AttachmentNames und NotesEmbeddedObject.Source das selbe Ergebnis zurückgeben.
Hab es gerade kurz getestet und wirklich sollte es dann mit .Source passen.

Noch eine Frage zu den EmbeddedObjects:
Wie bekomme ich denn alle EmbeddedObjects?

rtItem.EmbeddedObjects ist sicher ein guter Start.
Aber gibt es nicht noch ein paar Ausnahmen, dass Anhänge nicht in einem RTFeld, sondern direkt am Dokument hängen können?
(forall o in doc.EmbeddedObjects wirft bei mir einen Type Missmatch, da es wohl nicht für Attachments gedacht ist)

Ich hatte schon manchmal mit ein paar komischen Dokumenten zu tun, wo in der Maske kein Anhang angezeigt wurde, über die Feldeigenschaften aber sehr wohl ein Anhang erkennbar war. Leitete man so ein Dokument weiter, war der Anhang dann im neuen Dokument nicht mehr vorhanden.
Kennt jemand dieses Phänomen?

Vielen Dank
Gerd

taurec · 18. Januar 2006

Also ich mach das ganz Standardmäßig:

Dim ses As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtItem As NotesRichTextItem

Set ses = New NotesSession
Set db = ses.CurrentDatabase
Set doc = db.UnprocessedDocuments.GetFirstDocument
Set rtItem = doc.GetFirstItem("Body")
Forall o In rtItem.EmbeddedObjects
Msgbox o.Source
End Forall

GerdH · 18. Januar 2006

dnotes

hier mein kurzer Beispielcode:

Code

Dim ws As New NotesUIWorkspace

	Dim doc As NotesDocument
	Dim rtitem As Variant

	Set doc = ws.CurrentDocument.Document
	Set rtitem = doc.GetFirstItem( "Body" )

	If ( rtitem.Type = RICHTEXT ) Then
		Forall o In rtitem.EmbeddedObjects
			If ( o.Type = EMBED_ATTACHMENT ) Then
				Messagebox o.Source
			End If
		End Forall
	End If

Alles anzeigen

taurec · 18. Januar 2006

Mach eine Schleife über alle Items und filter dir aus den $FILE Items den internen Namen heraus. Dann kannst du über doc.GetAttachment das Attachment holen

dnotes · 18. Januar 2006

Heisst Dein Feld Body???
Wenn ich bei mir den passenden Feldname angebe geht es. Allerdings liefert o.source nie den urspruenglichen Namen *gruebel

Auch bei taurec´s Code kommt bei mir nie der urspruengliche *merde

taurec · 18. Januar 2006

Hast du es vielleicht eingebettet und nicht angehängt ?

dnotes · 18. Januar 2006

Nein, ganz "normal" attached. *Das muss ich noch untersuchen

GerdH · 18. Januar 2006

Hallo,

jetzt steh ich auch auf dem Schlauch, wenn ich's so mache, wie taurec vorgeschlagen hat, bekomme ich wieder nur den internen Namen des Attachments:

Code

Dim ws As New NotesUIWorkspace

	Dim doc As NotesDocument
	Dim eo As NotesEmbeddedObject

	Set doc = ws.CurrentDocument.Document

	Forall i In doc.Items
		If Ucase( i.name ) = "$FILE" Then
			Set eo = Nothing
			Set eo = doc.GetAttachment(Cstr(i.Values(0)))
			Messagebox eo.Source
		End If
	end forall

Alles anzeigen

dnotes
ja, mein Feld heißt Body und bei mir kommt in dem weiter oben geposteten Code der ursprüngliche Dateiname zurück.

taurec · 18. Januar 2006

Vielleicht macht es ja einen Unterschied ob die Attachments ans Dokument oder in ein RichTextFeld gehängt werden.

Beim RichTextFeld bekomme ich die richtigen Dateinamen

pegasus · 19. Januar 2006

hmmm, vor dem gazen Problem stand ich gestern auch, aber ohne Programmierung, sondern wenn ich diese Mail mit zwei Dateianhängen herausschicke aus Notes, dann wird mir in meinem
Internetaccount die erste Datei mit der richtigen Endung angezeigt
(Angebot.PDF) und die andere Datei als ATT###

schicke ich sowas zum Kunden weiß der mitunter nicht, was dieser Dateianhang bedeutet.

Unsere einzige Möglichkeit bisher war: Datei herauslösen, Datei im Filesystem umbenennen, wieder anhängen....

Selbstverständlich ist das nervig, wie kann ich das umgehen?

PapaRanger · 8. März 2006

Hallo GerdH!

Ich stehe gerade vor dem gleichen Problem, hast Du es jetzt schon geschaft das Du die richtigen Attachment-Namen herausbekommst?

Ich hab schon alles Probliert, aber ich bekomme immer den Internen-Namen zurück!

Hast Du vieleicht eine Lösung?

Vielen dank im Voraus!

mfg

Paparanger

aweinrei · 8. März 2006

kann mich dunkel daran erinnern das mir ein kumpel mal erzählt hat das das mit den dateinamen erst ab einem bestimmten 6.5 release korrekt funktioniert. glaube es war hier ...

Teilen