Open document in Notes app from VBA

Hi folks,

Here my problem:
I want to open a Notes document via VBA(MS ACCESS 2000) within the
Notes application. When done the Notes app shall receive the focus so
that the user can review the document. This shall also work if Notes is
already running in the background. Getting the UID of the doc is not
the problem.

Here what I already tried/checked
1) The command line option Notes://server/... fails if Notes is already
running
2) NotesUIWorkspace.EditDocument is not supported in COM

Here my best idea (maybe you have better ones)
A LotusScript program within the DB could open the document with
NotesUIWorkspace.EditDocument but how do I pass the argument (e.g. UID)
from ACCESS to Notes and how do I push Notes to the front afterwards?

A head scratching
Tom Koester

 

I found the solution myself. The key is to use OLE instead of COM. OLE
allows to use the UI classes of Notes. Here the code snippet:

-----------------
Dim lnUIWorkspace As Object

'--- establish OLE connection with CreateObject("Notes.xxx")
Set lnUIWorkspace = CreateObject("Notes.NotesUIWorkspace")

'--- locate doc in view via document key (just one option)
lnUIWorkspace.OpenDatabase csSERVER, csDB, csVIEW, csKey
'--- open doc in read mode
lnUIWorkspace.EditDocument False

Set lnUIWorkspace = Nothing