Beim Wechseln kannst du kein Script starten. Dazu gibt es keinen Event. Das geht nur mittels eines Script-Agenten mit dem du die AU wechselst.
Ganz grob könnte das so aussehen:
Dim workspace As New NotesUIWorkspace
Call workspace.SetCurrentLocation("Internet")
Call workspace.OpenDatabase ( "Server", "Datenbank", "Ansicht", "Key", False, False )
Näheres zu den Parametern findest du auch in der Designer-Hilfe
Axel