Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

User bekommt alle Mails 6-fach zugestellt

<< < (2/2)

MartinG:
Das mit den verkorreksten Regeln bekommt IBM wohl nie in den Griff. Ich habe sogar das Gefühl das die letzte R5 Version die ich im Einsatz hatte (5.011) weniger Probleme damit hatte als jetzt meine Notes6 Version. Ich habe bei 200 Usern fast monatlich ein solches Problem...

Eine Möglichkeit zur Anzeige der "Userregeln" hat vermutlich noch keiner gefunden. Die müssen doch irgendwie in der mail.box drinstehen....

Gruss
Martin

Tode:
nein, die Regeln stehen im Kalenderprofil.. Es gibt für jede Regel ein Feld Namens "$filterformula_x" mit x = lfd Nummer von 0 ab. Von dort aus werden Sie vom Router beim neustart (vielleicht auch ab und zu im laufendern Betrieb, das weiss ich nicht) ausgelesen und gecached... Diese Cache lässt sich aber leider weder auslesen noch löschen.

Ein fleissiger Programmierer könnte ja mal einen Servergestützten Agenten schreiben, der alle Kalenderprofile in allen DBs durchforstet, und die Ergebnisse der dort eingetragenen Regeln in eine Spezial- Log- DB einträgt...

Und wenn er ganz fleissig ist, durchläuft er auch noch alle vorhandenen Regel- Dokumente und gleicht die mit den gefundenen Kalenderprofil ergebnissen ab.

Stimmen beide Werte nicht überein: Warnmail an den Admin....

Der Zeitaufwand ist überschaubar: Schleife über DBDirectory, GetProfileDocument, Schleife durch $Rules... So viel ist das gar nicht...

Vielleicht komme ich ja selbst mal dazu... aber so lange ich selbst das Problem so selten habe, mache ich das eher nicht (das bezahlt mir ja keiner ;-) )

Gruß
Tode

Driri:
Ich hatte so etwas schon mal angefangen, allerdings bin ich nicht dahinter gekommen, wie ich die $FilterFormula_x auslese.

Hier mal der Code und das Mail, was dabei generiert wird :


--- Code: ---Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim text As String
Dim itemname As String
Dim itemvalue As Variant
   
Set session = New NotesSession
Set db = New NotesDatabase("SERVER", "mail\xyz.nsf")
Set doc = db.getprofiledocument("CalendarProfile")   
   
text = "Felder und Werte des CalendarProfiles : " & Chr$(13) & Chr$(13)
   
If doc Is Nothing Then
      
Msgbox "Kein CalendarProfile vorhanden"
      
Else
      
Forall item In doc.Items
   itemname = item.Name
   If item.Type = RICHTEXT Then
      text = text & itemname & Chr$(13) & "RTF-Item, keine Werte _
      extrahiert" & Chr$(13) & Chr$(13)
   Else
      If item.Type = FORMULA Then
         itemvalue = item.abstract(100, False, False)
         text = text & Cstr(itemname) & Chr$(13) & Cstr(itemvalue)_
          & Chr$(13) & Chr$(13)         
      Else
         If Not Isnull(item.Values) Then      
            itemvalue = item.Values
            text = text & Cstr(itemname) & Chr$(13) &_
            Cstr(itemvalue(0)) & Chr$(13) & Chr$(13)      
         End If
      End If
   End If
End Forall
      
Dim d As notesdocument
Set d = New notesdocument(db)
d.form = "Memo"
d.Subject = "CalendarProfile der Mail-DB : " & Cstr(db.Title)
d.Body = text
d.SendTo = "Mich"
Call d.send(False)
      
End If

--- Ende Code ---

Dabei kommt dann z.B. für mein Kalenderprofil folgendes bei rum (ich habe 6 Regeln aktiv, ist allerdings noch ne 5er Mail-DB) :


--- Zitat ---Felder und Werte des CalendarProfiles :

$DialogMode
0

$Name
$profile_015calendarprofile_

$PrevBusyName
CN=Mich/OU=OU/O=O/C=DE

WDEFAULTMAILOPT
2

WENABLETRASHICON
1

WCALGRIDTYPE
3

WENABLENABS
0

WENABLEFAVORITES
0

WISFOLDER1
1

WISFOLDER2
1

WISFOLDER3
1

WISFOLDER4
1

WISFOLDER5
1

WISFOLDER6
1

NotesNab1
names.nsf

ConflictAnniv


AUTORELOAD


$FilterFormula_0


$FilterFormulaCount
6

$FilterFormula_1


$FilterFormula_3


$FilterFormula_4


MeetingsPeople


AutoProcessMeetings
0

AutoSetAlarms


CalEntryHide


Form
CalendarProfile

ExcludeFromView
D

Subject
Profile document - do not delete

PROTECTFROMARCHIVE
1

$FilterFormula_5


tmpAlarmSounds
att

$Times1
11.07.2004 09:00:00

$Times2
12.07.2004 08:00:00

$Times3
13.07.2004 08:00:00

$Times4
14.07.2004 08:00:00

$Times5
15.07.2004 08:00:00

$Times6
16.07.2004 08:00:00

$Times7
17.07.2004 09:00:00

AltOwner
CN=Mich/OU=OU/O=O/C=DE

$LangOwner


Owner
CN=Mich/OU=OU/O=O/C=DE

SpellCheck


FormatReplies


OffSetChar
1

DefaultLogo
StdNotesLtr15

EnableSignature


SignatureOption
1

Signature_2


Signature_1
Bla Bla Bla

Signature
Bla Bla Bla

CalEntryType
0

DefaultDuration
60

AutoAnniversaryRepeat
10

ConflictMeeting
1

ConflictOfficeHours


ConflictEvent


ConflictAnniversary


UserCategories
Jahr 2000

Sunday


$TimesDisp1
09:00:00

Monday
2

$TimesDisp2
08:00:00

Tuesday
3

$TimesDisp3
08:00:00

Wednesday
4

$TimesDisp4
08:00:00

Thursday
5

$TimesDisp5
08:00:00

Friday
6

$TimesDisp6
08:00:00

Saturday


$TimesDisp7
09:00:00

AllowBusyAccess


EnableAlarms
1

SetAlarmAppointment
1

AppointmentLead
30

SetAlarmReminder


ReminderLead
0

SetAlarmEvent


EventLead
1

SetAlarmAnniversary


AnniversaryLead
1

SetAlarmTask


TaskLead
1

AlarmSound
chimes

CalendarTimeSlotStart
07:00:00

CalendarTimeSlotEnd
19:00:00

CalendarTimeSlotDuration
60

ExcludeFromAll


ExcludeFromSent
1

$WorkDays
2

AutoProcessType
D

AutoprocessUserList


AutoProcessForwardTo


AutoRemoveFromInbox


PreventRepliesFromInbox
0

TaskFollow


ReadMail
CN=Kollega/OU=OU/O=O/C=DE

WriteMail


EditMail
CN=XTNDConnect/OU=OU/O=O/C=DE

DeleteMail
CN=XTNDConnect/OU=OU/O=O/C=DE

OtherUsers
OtherDomainServers; SERVER

PublicRead
0

ReadCalendar
CN=Kollega/OU=OU/O=O/C=DE

PublicWrite
0

WriteCalendar
CN=XTNDConnect/OU=OU/O=O/C=DE

$BusyName
CN=Mich/OU=OU/O=O/C=DE

$AvailableDays
2

$PublicAccess
1

$CSVersion
2

$UpdatedBy
CN=Mich/OU=OU/O=O/C=DE

$Revisions
08.09.2003 17:48:08

$NoPurge
 


--- Ende Zitat ---

Driri:
Falls da jemand ne Idee zu hat, immer her damit  ;D

Navigation

[0] Themen-Index

[*] Vorherige Sete