Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Suche inLoNO über VBA ansteuern.

(1/3) > >>

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...:

--- Zitat 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


--- Ende Zitat ---
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

--- Ende Code ---
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)

--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite