Hi,
probiers mai hiermit:
im Navigator bei Starten: Formel auswählen und folgende Formel einfügen (darf natülich auch ein Outlineeintrag als Aktion sein
):
@Command([ToolsRunMacro];"NameDesAgenten")
Dann einen Agenten mit dem Namen erstellen und folgenden Code bei Sub Initialize einfügen:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim s As New NotesSession
Dim db As NotesDatabase
Dim vw As NotesView
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set vw = db.GetView( "NameDeinerAnsicht")
Set doc = vw.GetFirstDocument
Set uidoc = ws.EditDocument( True, doc )
Sollte damit funktionieren...
sloe
