da ich LotusScript nicht kann, sag ich zu dem Script lieber nichts *g*

Aber 2 Hinweise hab ich schon:
Meiner Meinung nach gehört sowas nicht in irgendein Event in der $Inbox, da ja neue Ordner das Design übernehmen. In deinem Fall kannst Du dich also auf viele Mails freuen!

Zum zweiten: in jedem Mail gibts ein Feld: $Mailer => da steht die genaue Notes Version drinnen - vielleicht hilft dir das?

Danke,

bringt mich aber auch nicht so richtig weiter.

Wie löst Ihr das denn mit den Notebooks, die lokal arbeiten und nicht aus dem Server Names lesen können.

By the way:
Im BCC Admin gibt es den ClientKonfigurator der die Versionen erkennen soll !

Hardy

Vielleicht hilf Dir das weiter. Jedoch der GetEntry für die ACL muss noch abgefangen werden, wenn jemand auf einen fremden Kalender zugreift und dessen PostOpen auslöst, jedoch keine Zugriffsrechte auf die ACL hat.

Weiter musst Du das Script beim "Update Tasks"-Agent Check checken nach hartcodiertem Servereinträgen. Sonst funktioniert's ned.

Sub Postopen(Source As Notesuidatabase)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Dim entry As NotesACLEntry   
   Dim registration As New NotesRegistration
   Dim currentagent As NotesAgent
   Dim doc As NotesDocument
   Dim agentenabled As Variant
   Dim isadmin As Variant
   Dim retmailserver1 As String
   Dim retmailserver2 As String
   Dim filename As String
   Dim username1 As String
   Dim username2 As String
   Dim currentserver As String
   Dim agentserver As String
   Dim lastversion As String
   Dim actualversion As String
   
   Set db = session.CurrentDatabase
   
      '*****   "Update Tasks"-Agent Check   *****
   filename = db.FileName
   username1 =  LeftSub(filename,".")
   username2 = db.Title
   currentserver = db.Server
   If currentserver = "" Then
      'Database is on Local - No action here
   Else
      Set acl = db.ACL
      Set entry = acl.GetEntry( currentserver )
      
      registration.RegistrationServer = currentserver
      On Error Resume Next
      isadmin = entry.IsAdminServer
      Call registration.GetUserInfo( username1, retmailserver1)
      'Call registration.GetUserInfo( username2, retmailserver2)
      
      If (isadmin) Or (currentserver=retmailserver1) Or (currentserver=retmailserver2) Then
         'Database is on User's main mail server (which is NORMALLY also the Administration Server) - Go forward
         'Get the right agent   
         Forall agent In db.Agents
            If ( agent.Name = "Update Tasks|Update Tasks" ) Then
               Set currentagent = agent
               Exit Forall
            End If
         End Forall
         'Get the current status (server/enabled)
         agentserver = currentagent.ServerName
         agentenabled = currentagent.IsEnabled
         'Change status if necessary
         If currentserver <> agentserver Then
            currentagent.ServerName = currentserver
            Call currentagent.Save
         End If
         If agentenabled = False Then
            currentagent.IsEnabled = True
            Call currentagent.Save
         End If
      End If
      
   End If
   
   '*****   Notes-Versionen Check   *****
   lastversion = session.GetEnvironmentString("Version")
   actualversion = TrimString(session.NotesVersion)
   If lastversion = actualversion Then
   'Keine Versionsänderung - keine Mail notwendig
   Else
      'Versionänderung - email an "Mail Version Report" absetzen / Notes.INI-Eintrag aktualisieren
      Set doc = New NotesDocument(db)
      doc.Form = "Memo"
      doc.Subject = actualversion
      doc.VersionNumber = LeftSub(actualversion,"|")
      doc.VersionDate = RightSub(actualversion,"|")
      doc.SendTo = "Mail Version Report"
      Call doc.Send(False)
      Call session.SetEnvironmentVar("Version",actualversion)
   End If
   
End Sub