Wenn die Performance egal ist könntest Du im After/Before New Mail Arrives den Tag und die Uhrzeit abfragen und dann davon abhängig die Aktionen auslösen. Feiertage sind da leider ein Problem.
Ok, nicht sonderlich elegant aber der Chef ist glücklich ;D
Der Agent läuft dann natürlich die meiste Zeit nutzlos (bitte nicht hauen).
Dim tag As Integer, stunde As Integer
tag% = Weekday ( Today() )
stunde% = Hour ( Now())
If tag% >1 And tag% < 7 Then
If stunde% = 17 Then
' Blackberry Aktion
Exit Sub
End If
End If
' Der ganz normale Wahnsinn oder auch nichts
Const agentName = "MeinAgent"
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Set agent = db.getAgent( agentName$ )
If Not(agent Is Nothing) Then
If agent.IsEnabled = False Then
agent.IsEnabled = True
Call agent.Save
End If
End If
Der Agent zum Ausschalten schaut dann fast genauso aus