Per DXLIMport mail in bestimmte MailDB kopieren

[Don Pasquale]

Ich habe eine XML Datei und will diese in eine bestimmte
Mail DB kopieren.


   Dim db ..
   Dim session ...

   Set db = New NotesDatabase( "", "mail\userxy.nsf" )

   Set importer = session.CreateDXLImporter
   importer.ReplaceDBProperties = True
   importer.ReplicaRequiredForReplaceOrUpdate = False
        importer.ACLImportOption = DXLIMPORTOPTION_REPLACE_ELSE_IGNORE
   importer.DesignImportOption = DXLIMPORTOPTION_CREATE
            
   Call importer.Import(stream, db)
            
   Call stream.Close


Der Code läuft zwar durch, in dem Mailpostfach kommt aber nichts an.
Hat da jemand eine Idee ?

[umi]

Hast Du schon mal probiert die anderen option des Importers zu setzen?
- InputValidation
- DocumentImportOption
- ExitOnFirstFatalError

Was sagt das importer.log ?

gruss

umi

[Don Pasquale]

         importer.ReplaceDBProperties = True
            importer.ReplicaRequiredForReplaceOrUpdate = False
            importer.ACLImportOption = DXLIMPORTOPTION_REPLACE_ELSE_IGNORE
            importer.DesignImportOption = DXLIMPORTOPTION_CREATE
            importer.InputValidationOption = VALIDATE_ALWAYS
            importer.DocumentImportOption = DXLIMPORTOPTION_CREATE
            


obige option sind gesetzt.
Importer.log ?

Nie gehört, was ist das ?

[umi]

Die Loginformationen des Importers.

z.B. print importer.log im Errorhandler einfügen oder nach importer.process()
gruss

[Don Pasquale]

Hmm, die Importer log ist bei mir leer.

[Don Pasquale]

Ich habe die maildb des Users wohl nicht korrekt angepsrochen.

[Don Pasquale]

Gibt es eine Möglichkeit, diese Mail an eine bestimmte Stelle, bzw. einen bestimmten Ordner in der Mail-DB zu kopieren ?

[umi]

Ja,
Du kommst über die GetFirstImportedNoteID? bzw. GetNextImportedNoteID ?
an die Importierten Dokumente ran. Dieses Dokument kannst Du dann in den Ordner verschieben.

mfg

Umi

[Don Pasquale]

Kannst Du das ein bißchen ausführen ?
Wenn ich wie oben 3 Dokumente importiere und morgen wieder 3.
Wie kann er die ersten 3 ( die der User in der Zwischenzeit nach Ordner XY verschoben haben kann) von den letzten 3 unterscheiden ?

[umi]

Ok
Mit den beiden Methoden kommst Du an die gerade Importierten NoteID's ran. Also an die gerade importierten Dokumente.
Mit diesen Dokumenten kannst Du dann machen was Du willst.
z.B. Ein Flag setzen, dass diese Dokumente aus dem DXL importiert wurden? evtl. auch das Datum des Imports?

Code

  Dim db ..
   Dim session ...

   Set db = New NotesDatabase( "", "mail\userxy.nsf" )

   Set importer = session.CreateDXLImporter
   importer.ReplaceDBProperties = True
   importer.ReplicaRequiredForReplaceOrUpdate = False
        importer.ACLImportOption = DXLIMPORTOPTION_REPLACE_ELSE_IGNORE
   importer.DesignImportOption = DXLIMPORTOPTION_CREATE
            
   Call importer.Import(stream, db)
noteID$ = importer.GetFirstImportedNoteID( )
set importeddocument = db.getdocumentByID(noteID)
call importeddocument.putInFolder("Aufträge")

[Don Pasquale]

BINGO !