Das Notes Forum

Lotus Notes / Domino Sonstiges => OLE/COM-Programmierung => Thema gestartet von: Oliver Li... am 09.08.17 - 06:30:21

Titel: Suche inLoNO über VBA ansteuern.
Beitrag von: Oliver Li... am 09.08.17 - 06:30:21
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
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: jBubbleBoy am 09.08.17 - 07:45:23
Versuch es mal über notesUiWorkspace.urlOpen( Notes-URL )
Notes-URL = notes://<server>/<DB-ReplicaID>/<View-UNID>?SearchView&Query=Suchbegriff
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: Oliver Li... am 09.08.17 - 10:21:50
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
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: jBubbleBoy am 09.08.17 - 10:38:45
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)
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: Oliver Li... am 09.08.17 - 11:09:58
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
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: jBubbleBoy am 09.08.17 - 11:16:14
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.
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: Tode am 09.08.17 - 12:17:33
Vom Server darst Du nur den Common- name nehmen!!!

also
Server = "xx"
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: Oliver Li... am 09.08.17 - 13:54:04
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.
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: jBubbleBoy am 09.08.17 - 14:04:51
Nimm mal zum Testen die IP-Adresse des Servers.
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: Oliver Li... am 09.08.17 - 14:06:40
Die wird uns nicht mitgeteilt.
geht es denn nur über urlopen?
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: jBubbleBoy am 09.08.17 - 14:25:18
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.
Titel: Re: Suche inLoNO über VBA ansteuern.
Beitrag von: Oliver Li... am 09.08.17 - 14:36:14
Das teste ich morgen nochmal