Hallo!
Wir haben unserer modifzierten Mailschablone einen Spam verschieben Agenten der "Vor Eingang neuer Mail" laufen soll. Im Calenderprofil kann der Anwender bestimmen ob Spam in den Ordner unerwünschte Mail verschoben werden sollen. Beim öffnen der Mail DB wird im DB Script im Postopen nachgeschaut ob er das will, wenn ja schau nach ob der Agent auch aktiviert ist, wenn nicht aktivier ihn.
Die User haben Editor Rechte.
Mit der Aktivierung im Postopen der DB wird der Adminp veranlasst den Agent zu aktivieren, das macht er auch. Leider läuft er nicht obwohl laut Design der Agent aktiviert ist. NUR wenn man den Agent im Design dann nochmals deaktiviert und dann aktiviert funktionierts meistens. Ansonsten das prozedere mehrmals wiederholen.
Hier der code der den Agent aktiviert (läuft bei uns seit 2004)
Function StartAgent(agName As String) As Integer
Dim agent As NotesAgent
Dim fE As Integer
Dim sE As String
fE = False
On Error Goto ErrProc
If dbMe.CurrentAccessLevel >=5 Then
Set agent = dbMe.GetAgent(agName)
agent.ServerName = dbMe.Server
agent.IsEnabled = True
Call agent.Save
Else
Dim AdminRequest As Variant
Set AdminRequest = session.CreateAdministrationProcess(dbMe.Server)
Call AdminRequest.ConfigureMailAgent(session.UserName, agName, False, True)
End If
Print "Agent gestartet ..."
StartAgent = fE
Exit Function
ErrProc:
fE = True
sE = Error$
Resume Next
End Function
Jemand eine Idee wieso das so ist!?
Noch was...
Gibts in Notes 8.5.1 er Design den gelben Stern nicht mehr der symbolisiert das es ein Agent VOR EINGANG NEUER MAIL ist!?
LG
Tommy
