@Axel:
Hilft mir aber leider nicht weiter,
habe dann mal diesen Code probiert, aber abwohl die Firma in der View ist findet er sie nicht
Dim ws As New NotesUIWorkspace
Dim view As NotesView
Set view = ws.CurrentView.View
Call view.FTSearch("accept")
Wieso , weshalb, warum ?
Hmmm kannst du mir bitte ne Schnellanleitung geben,
Dim session As New NotesSession
Dim docColl As NotesDocumentCollection
Dim folderName As String
folderName = {persFolderOf}+ session.UserName
Call AdrDB.EnableFolder(folderName)
Set docColl = AdrDB.FTSearch(Query,0)
Call docColl.PutAllInFolder(folderName)
WIe gehts dann weiter , ich will dass der Folder dann gleich geöffnet wird