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:
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
Deine URL scheint nicht zu stimmen. Hier mein Excel-Test, der klappt:
URL = "notes://al/DataShare/DomNav/DEMODomNav.nsf/vCode?searchView&Query=1"
Set ws = CreateObject("notes.notesuiworkspace")
ws.urlopen (URL)