Attachment Namen

[yetiman]

Hallo an alle,

so, nun nochmal ein anderes Problem.
Eine Datenbank aus der via Agent Attachments gelöst werden sollen.

Die Attachments werden via Lotusscript aus 4 verschiedenen RT Feldern gelöst und je nach Feld in einen separaten Ordner gelöst.
Funktioniert soweit problemlos, bis auf den Filenamen der Attachments.
Bei manchen Attachments ist im $File Feld so etwas hier angegeben:

Field Name: $FILE
Data Type: Attached Object
Data Length: 60 bytes
Seq Num: 17
Dup Item ID: 7
Field Flags: ATTACH SIGN SEAL SUMMARY

Object Type: File
Object ID: 000002B2
Object Length: 288367
File Name: ATTKPBPX
Flags:
Host: MSDOS/OS2
Compression Type: HUFFMAN 1
Encoding Type:
File Attributes: RW PUBLIC
File Size: 328045
File Created: 30.01.2008 08:49:57
File Modified: 30.01.2008 08:49:57

Beim extrahieren des objektes wird der fett markierte filename als Dateiname herangezogen.
Allerdings heisst das Attachments eigentlich völlig anders! Wenn ich rechtsklicke und Speichern unter mache wird der echte Filename herangezogen (mit Endung usw.)

Code:

Code

strCurrentName = "DevelopmentHistory"
Call createPath(strPath + "\" + strCurrentName)
Set rtitem = doc.GetFirstItem("Body")
If Not rtitem Is Nothing Then
	If ( rtitem.Type = RICHTEXT ) Then
		If Not IsEmpty(rtitem.EmbeddedObjects) Then
			ForAll o In rtitem.EmbeddedObjects
				If ( o.Type = EMBED_ATTACHMENT ) Then
					fileCount = fileCount + 1
					Call o.ExtractFile (strPath + "\" + strCurrentName + "\" + o.Name)
				End If
			End ForAll
		End If
	End If
End If

Krieg ich irgendwie den echten Filename?

[Tode]

o.Source statt o.Name. Diese Attachmentnamen kommen entweder aus dem Web, oder wenn es in dem Feld 2 Attachments mit gleichem Namen gibt.

ACHTUNG: Dein Code sollte auf jeden Fall berücksichtigen, dass der selbe Dateiname im gleichen Dokument oder auch in verschiedenen Dokumenten mehrfach vorkommen kann. Wenn Du das nicht beachtest, fehlen Dir nachher Daten.

[yetiman]

Danke!!