yep (Voraussetzung du kennst das Design)
möglich ist alles, es ist nur eine Frage der Zeit oder des Geldes
Sub Initialize
Dim db As New NotesDatabase("", "")
Dim Agent As NotesAgent
If (db.open("", "verstecktedb.nsf")) Then
Set Agent = db.GetAgent("(versteckteAgent)")
If Not(Agent Is Nothing) Then
Call Agent.Run
Else
Msgbox "Agent ist im Nirwana....."
End If
End If
End Sub
cu