Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Don Pasquale am 03.06.05 - 12:40:28

Titel: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: Don Pasquale am 03.06.05 - 12:40:28
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 ?
Titel: Re: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: umi am 03.06.05 - 12:45:04
Hast Du schon mal probiert die anderen option des Importers zu setzen?
- InputValidation
- DocumentImportOption
- ExitOnFirstFatalError

Was sagt das importer.log ?

gruss

umi
Titel: Re: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: Don Pasquale am 03.06.05 - 13:17:51
         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 ?

Titel: Re: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: umi am 03.06.05 - 13:25:23
Die Loginformationen des Importers.

z.B. print importer.log im Errorhandler einfügen oder nach importer.process()
gruss
Titel: Re: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: Don Pasquale am 03.06.05 - 14:03:21
Hmm, die Importer log ist bei mir leer.
Titel: Re: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: Don Pasquale am 03.06.05 - 14:53:01
Ich habe die maildb des Users wohl nicht korrekt angepsrochen.

Titel: Re: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: Don Pasquale am 03.06.05 - 14:57:49
Gibt es eine Möglichkeit, diese Mail an eine bestimmte Stelle, bzw. einen bestimmten Ordner in der Mail-DB zu kopieren ?
Titel: Re: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: umi am 03.06.05 - 14:59:36
Ja,
Du kommst über die GetFirstImportedNoteID? bzw. GetNextImportedNoteID ?
an die Importierten Dokumente ran. Dieses Dokument kannst Du dann in den Ordner verschieben.

mfg

Umi
Titel: Re: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: Don Pasquale am 03.06.05 - 15:14:12
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 ?
Titel: Re: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: umi am 03.06.05 - 15:23:13
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")

Titel: Re: Per DXLIMport mail in bestimmte MailDB kopieren
Beitrag von: Don Pasquale am 03.06.05 - 15:30:52
BINGO !  ;D