Suche inLoNO über VBA ansteuern.

[Oliver Li...]

Wie ich über VBA per Search oder FTSearch Datensätze durchsuche ist in vielen Beispielen beschrieben und findet man auch über https://www.ibm.com/support/knowledgecenter/en/SSVRGU_8.5.3/com.ibm.designer.domino.main.doc/H_FTSEARCH_METHOD_DB_JAVA.html .
Was ich brauche ist die suche in LoNo zu öffnen, damit der Nutzer die Liste der Treffer im LoNo (Verlauf zum Thema) in LoNo sehen kann. Leider habe ich hierfür den Befehl nicht gefunden. es würde mir reichen, wenn ich den reinen Befehl habe, ich würde für die Einbindung dann direkt in die IBM Doku sehen.

Grüße an alle und schon einmal vorab Dank für Hilfe.
Oliver

[jBubbleBoy]

Versuch es mal über notesUiWorkspace.urlOpen( Notes-URL )
Notes-URL = notes://<server>/<DB-ReplicaID>/<View-UNID>?SearchView&Query=Suchbegriff

[Oliver Li...]

Versuch es mal über notesUiWorkspace.urlOpen( Notes-URL )
Notes-URL = notes://<server>/<DB-ReplicaID>/<View-UNID>?SearchView&Query=Suchbegriff

Ich kriege dort Fehlermeldung laut Bild.
Bei folgendem Code:

Code

Public Function NotesSuchen() As Integer
   On Error GoTo ErrBeh
    Dim intErgebnis As Integer
    Dim objNotes As Object
    Dim LNdb As Object
    Dim LNView As Object
    Dim LNDoc As Object
    Dim LNItem As Object
    Dim strSubject As String
    Dim LNWorkspace As Object
    Dim LNAttachment As Variant
    Dim Server, Mailfile As String
    Dim Str_Notes_URL As String
    
    Server = "xx/yy/zzz/verz/lastverz"
    Mailfile = "mail3566/xy.nsf"
   
    'Str_Notes_URL = "notes://" + Server + "/C1257DA2:0034BD0B/?SearchView&Query=Suchbegriff"
    Str_Notes_URL = "notes://" + Server + "/" + Mailfile + ""
    'Holen einer aktiven Notessession
    Set objNotes = GetObject("", "Notes.NotesSession")
    'Verweisen auf die gewünschte Datenbank
    Set LNdb = objNotes.GETDATABASE(Server, Mailfile)
 
    'Lotus Notes Workspace Objekterstellung zur Steuerung der GUI
    '(Hierdurch kann der geöffnete Notes Client ferngesteuert werden.)
    Set LNWorkspace = CreateObject("notes.notesuiworkspace")
    LNWorkspace.OpenDatabase Server, Mailfile
  
   'notesUiWorkspace.urlOpen (Notes - URL)
   
    LNWorkspace.UrlOpen (Str_Notes_URL)
GoTo Ende
ErrBeh:
    Err.Clear
    intErgebnis = 1
Ende:
 
    Set objNotes = Nothing
    Set LNdb = Nothing
    Set LNView = Nothing
    Set LNItem = Nothing
    Set LNWorkspace = Nothing
    Set LNDoc = Nothing
 
    NotesSuchen = intErgebnis
 End Function

Ich kenne aber auch nur diesen Pfad, den ich über Datenbank Eigenschaften erhalte.
Eigentlich bräuchte ich nur das Gegenteil von getview, ein setview für die inbox

[jBubbleBoy]

Deine URL scheint nicht zu stimmen. Hier mein Excel-Test, der klappt:

Code

URL = "notes://al/DataShare/DomNav/DEMODomNav.nsf/vCode?searchView&Query=1"
Set ws = CreateObject("notes.notesuiworkspace")
ws.urlopen (URL)

[Oliver Li...]

Wir haben keine Zugriffsrechte auf die Verzeichnisse, nur Rechte die Org-Briefkästen zu nutzen, crasht es hier wegen der rechte?
Wobei mit objNotes.GETDATABASE kommen keine Pfadkonflikte

[jBubbleBoy]

Wenn du deine DB-Pfadangaben in Notes über "Anwendung öffnen" eingibst, geht das dann?
Versuch es doch mal mit der Replica-ID, aber ohne dem Doppelpunkt.

[Tode]

Vom Server darst Du nur den Common- name nehmen!!!

also
Server = "xx"

[Oliver Li...]

Vom Server darst Du nur den Common- name nehmen!!!

also
Server = "xx"

URL = "notes://DMail38CLB"
auch mit dieser URL kommt die Fehlermeldung, interessanterweise gibt er dabei aber den Kompletten Pfad an.

[jBubbleBoy]

Nimm mal zum Testen die IP-Adresse des Servers.

[Oliver Li...]

Die wird uns nicht mitgeteilt.
geht es denn nur über urlopen?

[jBubbleBoy]

Es gibt noch den @Formelbefehl "@Command([ViewShowSearchBar])", mehr kenne ich nicht.

Mach mal ein Notes-Port-Trace, zu finden in der Client-Konfiguration unter "Notes-Ports", damit solltest Du die IP-Adresse des Server herausbekommen.

[Oliver Li...]

Das teste ich morgen nochmal