Ich konnte mein Problem nun endlich lösen!
Summary:Ich wollte RichText-Pictures aus einer Mail extrahieren und speichern.
Dazu habe ich als Codegrundlage die Datenbank von Openntf genommen - die '
ExportPictures'-Funktion aus der Scriptbibliothek '
ExportPicturesLib'.
Hierbei wird aus einem Dokument mittels DXLExporter ein XML-String erzeugt (inkl. aller Inline-Pictures). Aus diesem XML-String werden dann alle Inline-Pictures auf Platte gespeichert. Funktioniert soweit erstmal prima, aber...
mein Problem hierbei:Es wurden auch alle Attachment-Icons von Nicht-RichText-Bildern mit ausgeleitet/gespeichert. Das soll in meinem Fall (und ich denke auch allgemein) eigentlich nicht sein!
Lösung:Nach etlichen Versuchen mittels NotesSAXParser die Attachment-Icons aus dem XML-String rauszuparsen und alles wieder irgendwie in DXL bzw. XML-String "zusammenzubauen", bin ich dann auf eine sehr einfache Lösung gestoßen!!!
Ich frag mich jetzt noch, warum nicht gleich so!
Der Anfang der benutzten '
ExportPicture'-Funktion aus der Datenbank von Openntf.org sieht so aus:
...
Set thisDB = session.CurrentDatabase
Set exporter = session.CreateDXLExporter
exporter.ConvertNotesBitmapsToGIF = True
...
Lediglich durch einfügen einer Zeile ergibt sich folgender Code, wobei hier alle Pictures, welche zwischen den Tags
<attachmentref...>...</attachmentref> stehen und Attachment-Icons repräsentieren, nicht mit in den XML-String übernommen werden!!! Das wars dann auch schon - so einfach kanns manchmal laufen!
Set thisDB = session.CurrentDatabase
Set exporter = session.CreateDXLExporter
exporter.ConvertNotesBitmapsToGIF = True
' NEU: auslassen von Attachment-Icons im XML-String
exporter.OmitRichtextAttachments = True
...
Allerdings ist diese Property erst ab Release 8 verfügbar.
Ich danke euch für eure Hilfe/Unterstützung/Tips!!!
Danke und Gruß
Rico.