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

Kalender von Kollegen wird immer wieder automatisch eingeblendet

(1/2) > >>

mmehl:
Hallo,
ich habe bei einem User das Problem, dass bei ihm im Kalender, der eingeblendete Kalender eines Kollegen immer wieder bei Neustart des Clients angehakt ist und angezeigt wird. Auch wenn ich den Kalender entferne und wieder neu hinzufüge wird er immer wieder automatisch angehakt und bleibt nicht wie alle anderen Kalender abgehakt.
Arbeitsbereich bereits komprimiert,vorher Kachel entfernt. lokaler Compact und Fixup durchgführt. Compact und Fixup auf Mail-DB. lokalen Workspace-Ordner gelöscht. Cache.ndk gelöscht.
Alles keine Besserung.
Notes 8.5.3 FP4
Weiß jemadn nen Rat??

Tode:
Da wirst Du nicht drumrum kommen, das Kalenderprofil wegzuschmeissen. Weniger radikal aber mit mehr Aufwand verbunden wäre der Ansatz, das Feld CalURls aus dem Kalenderprofil zu entfernen, da stehen die nämlich drin.

Daniel_Pe:
auch wenn das Thema schon älter ist... - sollte das nicht durch löschen der bookmark behoben werden? - ich bilde mir ein das schon so erledigt zu haben...

ascabg:
Hallo,

@Daniel_Pe

--- Zitat ---sollte das nicht durch löschen der bookmark behoben werden?
--- Ende Zitat ---

Die bookmark.nsf hat aber primaer nichts mit den eingeblendeten Kalendern im Mailfile zu tun.
Die Informationen sind, wie Tode schon schrieb, Bestandteil des "CalendarProfiles".


Andreas

umi:
Mit diesem kleinen Script lässt sich ein einzelner solcher Eintrag deaktivieren ohne dass man gleich das ganze Calendarprofile löscht.


--- Code: ---Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim profile As NotesDocument
Dim calUrls As Variant
Dim answer As Variant
Dim index As Integer
Dim tmp As String
Dim answer2 As String
Dim tmp2 As string
Dim uiws As New notesuiworkspace
Set db = s.currentdatabase
Set profile = db.Getprofiledocument("CalendarProfile")
calUrls = profile.getitemvalue("CalUrls")
answer = uiws.prompt(prompt_okcancellist,"Calendar","Calendar",calUrls(0),CalUrls)

If Len(answer)>0 Then
For index=0 To UBound(calUrls)
tmp = calUrls(index)
If StrCompare(answer,tmp,5)=0 Then
answer2=uiws.prompt(prompt_yesno,"Sure?","Are you sure you want to disable " & answer)
If answer2 Then
Print answer
tmp2 = Mid(tmp,1,Len(tmp)-1)
tmp2= tmp2 & "0"
calUrls(index)=tmp2
While profile.hasitem("CalUrls")
Call profile.removeitem("CalUrls")
Wend
Call profile.replaceitemvalue("CalUrls",calUrls)
Call profile.save(True,False)
Exit for

End If
End If
Next
End If
Exit sub


End Sub

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite