ja hört sich sehr ähnlich nach meinem Problem an
(und auch die Hürden die du umschiffen musst, hatte ich)
ich hab nochmal im Code nachgesehen, wie ich das gemacht habe:
Im Smarticon steht bei mir:
@Command([Compose];"server!!pfad\zur\db.nsf";"smarticon.form")
(diese Maske ist NICHT in der MailDB)
in der "smarticon.form" steht dann:
Public currDB As NotesDatabase
Public currView As NotesUIView
Public currDoc As NotesUIDocument
Sub Initialize
On Error Resume Next
Dim currWS As New NotesUIWorkspace
Set currDB = currWS.CurrentDatabase.Database
Set currView = currWS.CurrentView
Set currDoc = currWS.CurrentDocument
On Error Goto 0
Call run(currDB, currView, currDoc)
End Sub
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
continue=False
End Sub
Ist ein Doc geöffnet so ist currDB und currDoc gesetzt. Bist du hingegen in einer Ansicht ist zusätzlich noch currView gesetzt. (Am Workspace ist nur currDB gesetz)
Wichtig ist dabei, dass man sich currentXXX bereits im Initialize holt.