Domino 9 und frühere Versionen > ND6: Entwicklung

Script PutInFolder

<< < (3/3)

koehlerbv:
Natürlich sucht FTSearch in der ganzen DB. Dein offenes Dokument gehört aber auch zur DB, oder?  ;)

Warum fasst Du Dein FTSearch syntaktisch nicht strenger und gibst auch die Itemnamen mit an, in denen Du Deine Werte erwartest?

Bernhard

Thorsten Kalweit:
öööööhhm ja  ???

Ich mache gerade meine ersten Schritte in Script  ;)

Thorsten Kalweit:
So!

Habs dann jetzt so gelöst  ;D ... bin sehr stolz auf mich :P Learning by Doing


--- Code: ---Sub Initialize

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewEntryCollection
Dim workspace As New Notesuiworkspace
Dim currentDocument As NotesDocument
Set db = session.CurrentDatabase
Set currentDocument = workspace.currentdocument.document

Set view = db.GetView("(alleAktenNachDocID)")
Set vc = view.GetAllEntriesByKey(currentDocument.GetItemValue("docIDAkte")(0))
Call vc.PutAllInFolder("Meine Akten")
End Sub

--- Ende Code ---

... und es funktioniert super

koehlerbv:
Sauber  ;)

Bernhard

Driri:
@Dirk :

Sorry, hatte ich überlesen.  :-[

Schaden kann Option Declare aber trotzdem nicht  ;)

Navigation

[0] Themen-Index

[*] Vorherige Sete