Dokument im PostOpen heraus noch ändern

[Don Pasquale]

Hallo Leute,

ich habe über den DXL-Exporter den kompletten Inhalt einer
eMail abgespeichert. Alle Attachments und das Body-Feld wurden
geleert.
Wenn der User nun die Mail öffnet, soll die Mail aus der XML
Datei wiederhergestellt werden.

Dazu habe ich in einer Mail im PostOpen Ereignis folgenden Code:


   Dim session As New NotesSession
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim db As NotesDatabase
   
   Set uidoc = uiws.CurrentDocument
   Set doc = uidoc.Document
   Set db = session.CurrentDatabase
   
   Dim dbCopy As NotesDatabase
   Set dbCopy = Session.CurrentDatabase
   
   Dim filename As String
   'Dim doc As NotesDocument
   
   filename = Left(db.FileName, Len(db.FileName) - 4)
   
  REM Open xml file named after current database
   Dim stream As NotesStream
   Set stream = session.CreateStream
   If Not stream.Open("D:\CL_ABLAGE\" & doc.UniversalID & ".xml") Then
      Messagebox "Cannot open " & filename$,, "Error"
      Exit Function
   End If
   If stream.Bytes = 0 Then
      Messagebox "File did not exist or was empty",, filename$
      Exit Function
   End If
   
  REM Replace documents in this database with matching ones in the DXL
   Dim importer As NotesDXLImporter
   Set importer = session.CreateDXLImporter(stream, dbCopy)
   importer.DocumentImportOption = DXLIMPORTOPTION_REPLACE_ELSE_IGNORE
   Call importer.Process



Wenn ich die Mail öffne ist sie aber leer. Erst wenn ich die Mail schliesse, die Ansicht refreshe und dann wieder öffne ist die Mail wieder komplett da.

Hat jemand eine Idee wie ich das realisieren kann ?

Ciao
Don Pasquale
ps: Die XML Datei liegt künftig auf einem DokumentServer,
falls jemand nach dem Sinn fragt.

[arcon]

Hi, kann dir nur sagen das RitchText Felder in Notes erst beim Speichern angelegt werden und somit dann erst den Inhalt anzeigen.

Du musst einfach uidoc Speichern -> schliessen -> wieder öffen in das Script einbauen.

Code

.....
Set obj_CurrentDocument = uidoc.Document
.....
Call obj_CurrentDocument.Save(True, True)
Call uidoc.close
Set uidoc = workspace.EditDocument(True,obj_CurrentDocument)      

[muR]

Hi Don Pasquale,
ist es möglich, daß Du mir ein Beispiel für den DXL-Exporter geben kannst. Habe da eine Anwendung bei der mir dies weiter helfen könnte.
Danke - Gruß muR