Mit diesem kleinen Script lässt sich ein einzelner solcher Eintrag deaktivieren ohne dass man gleich das ganze Calendarprofile löscht.
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