Hallo,
ich möchte in LS ein Agenten laufen lassen. Die entsprechende Methode is ja klar und wenn ich die Agenten innerhalb einer Formel aufrufe Funktionieren sie auch
@If(@ViewTitle="DocumentDelete";@Command([ToolsRunMacro];"(DeletePermanently)");@Command([ToolsRunMacro];"(DeleteDocument)"))
Möchte ich soie allerdings in dem Event QueryDocumentDelete aufrufen kommt eine Fehlermeldung:
Notes Error:unspported trigger or embedded agent
Mein code zum Aufruf sieht folgendermaßen aus:
Dim workspace As New NotesUIWorkspace
Dim s As New NotesSession
Dim view As NotesUIView
Dim db As NotesDatabase
Dim strcmp As Integer
Dim viewtitle As String
Dim agent_deletePermanently As NotesAgent
Dim agent_remove As NotesAgent
Set view=workspace.CurrentView
Set Source = workspace.CurrentDatabase
Set db=Source.Database
Set agent_deletePermanently=db.GetAgent("(DeletePermanently)")
Set agent_remove=db.GetAgent("(DeleteDocument)")
viewtitle=view.ViewName
strcmp=Strcompare("Admin\Deleted Documents",viewtitle,0)
If strcmp=0 Then 'Document in Delete Document view
agent_deletePermanently.Run
Else 'Documents in an over view
agent_remove.Run
End If
End Sub
Ich hab keine Ahnung woran das liegen kann.
Wer kann mir helfen??
Vielen Dank im Vorraus
Jana
