Kalender von Kollegen wird immer wieder automatisch eingeblendet

[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

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

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

[Matze69]

wie lösche ich ein Kalenderprofil bzw. wie kann ich das Script evtl. anwenden?
Client und Server 9.01

[Pfefferminz-T]

0,5 sec bei Google:

http://www-01.ibm.com/support/docview.wss?uid=swg21088892

Mit allen Beispielen und drum und dran.

[koehlerbv]

Wieso stellst Du in einem einem Jahr alten Thread - noch dazu in dem für eine ältere Version - eine Frage, die zudem noch zu Deinen anderen Posts im anderen Board gehören? Was soll das Durcheinander?

Bernhard