Hallo,
DXL ist ein super Stichwort und ich bin nahe dran das Problem tatsächlich zu lösen! Vielen Dank!
Dim nDXLe As NotesDXLExporter
Set nDXLe = s.Createdxlexporter()
Dim sTemp As String
sTemp = nDXLe.Export(mailDoc)
Damit bekomme ich schon mal alles als XML. "<notesbitmap>" ist dann er Übeltäter. Den schneide ich raus.
Dim nDXLi As NotesDXLImporter
Set nDXLi = s.Createdxlimporter()
Call nDXLi.Import(sTemp, mailDoc.Parentdatabase)
Damit bekomme ich das XML wieder in meine Datenbank reinimportiert. Allerdings ist es so leider ein neues Dokument und was noch schlimmer ist, ich habe es nicht im Zugriff. Wenn ich jetzt das NotesDocument-Object hätte, könnte ich damit weitermachen. Ich habe mir das frisch importierte Dokumente mal von Hand rausgesucht und das funktioniert wirklich. Das Bild ist weg und damit auch der Fehler. Aber wie komme ich nun mit meinem Script an das Dokument ran? Die Import()-Methode kann man offenbar nur callen. Die gibt mit nicht das BackEnd-Dokument zurück, das sie gerade importiert hat. :-(
Ich habe mir jetzt recht plump damit beholfen das LastDocument aus der Datenbank zu holen, aber es ist ein wenig Glückssache, ob das das richtige ist. Das ist etwas unbefriedigend, weil ich das dann ja gleich wieder lösche und ich nicht ausversehen das falsche löschen will. Gibt es da eine elegantere Lösung?
Set otherDoc = mailDoc.Parentdatabase.Alldocuments.Getlastdocument()
Gruß
Stefan