Domino 9 und frühere Versionen > Entwicklung

Verschieben in eine andere Datenbank

<< < (2/2)

Selin:
Hallo,

ich habe das Kopieren der Mail in eine andere DB mit diesem Script gemacht.
Allerdings habe ich hier jetztd as Problem, dass ich die Folderstruktur nicht einsehen und dort einen Ordner auswählen kann.
Via PutinFolder kann ich ja lediglich einen Ordnernamen angeben.
Gibt es da nicht auch ne Möglichkeit wie:

@PickList([Folders];"SRV":"DB")?



Sub Click(Source As Button)
   Dim dbtarget As NotesDatabase
   Dim doc As NotesDocument
   Dim niudoc As NotesUIDocument
   Dim WS As New notesUIWorkspace
   Dim docTarget As NotesDocument
   
   Set doc = WS.CurrentDocument.document
   
   Set dbtarget = New NotesDatabase(  "SRV", "DB" )
   
   If (Messagebox("Wollen Sie wirklich das aktuelle Dokument in die X Maildatenbank hinzufügen?", 3 ,"Hinzufügen") <> 6) Then
      Messagebox("Sie haben die Aktion abgebrochen. Das Dokument wurde nicht hinzugefügt.")
      
   Else
      
      Set tmpdoc = doc.CopyTodatabase(dbtarget)
      
      Call tmpdoc.PutInFolder ( Inputbox$("Bitte Ordner eingeben:","Ordner",""), True      )
      tmpdoc.PostedDate = Format$( doc.PostedDate(0), "Short Date")
      Call tmpdoc.Save(True, True)
      Set nuidoc= WS.CurrentDocument
      
      Msgbox("Das Dokument wurde in xMaildatenbank hinzugefügt.")
   End If
   
End Sub

Danke Euch + Viele Grüße
Selin

rar:
Hi,
Andreas hat eh schon beschrieben, wie du die Ordner einer anderen DB auslesen kannst...


--- Zitat von: Glombi am 08.04.05 - 13:46:33 ---Du kannst via Script die Ansichten/Ordner aus einer anderen Datenbank lesen.

Bsp.
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Forall v In db.Views
  Messagebox(  v.Name  )
End Forall

Mit
To get: flag = notesView.IsFolder
Return value
True indicates tha the NotesView object represents a folder
False indicates that the NotesView object represents a view

kannt Du dann abfragen, ob es ein Folder (Ordner) ist.

Andreas

--- Ende Zitat ---

Du musst dann nur noch die Namen der Ordner in ein Array packen und dann mit
NotesUIWorkspace.Prompt(PROMPT_OKCANCELLIST, ...
einen Folder auswählen lassen. Das müsste es doch sein. Oder?

lG

Navigation

[0] Themen-Index

[*] Vorherige Sete