As configurações para os outros calendários são armazenadas no perfil do calendário no item "CalURLs".
Às vezes, essas informações são corrompidas, resultando em um erro desse tipo.
Você pode usar ferramentas como "notespeek" ou Ytria ScanEZ para verificar o conteúdo do campo e corrigi-lo. Cada entrada se parece com isso consistindo em nome de exibição, tipo, nome de usuário, ícone, cor de fundo, cor de primeiro plano e alguns sinalizadores:
Micky Maus/Certifier'notesCalendar:Micky Maus/Certifier:0:null'calendar gray.png'{206,212,225}'{57,87,122}'1
Para redefinir as entradas (se não puder corrigi-lo com código), você pode usar esse código em um agente ou botão de ação no arquivo de mensagens do usuário:
Dim ses as New NotesSession
Dim db as NotesDatabase
Dim docProfile as NotesDocument
Set db = ses.CurrentDatabase
Set docProfile = db.getProfileDocument( "CalendarProfile" )
if docProfile.HasItem( "CalURLs" ) then
call docProfile.RemoveItem( "CalURLs" )
call docProfile.Save( True, True, True )
Messagebox "CalURLs habe been removed, please reopen the database and recreate them"
End if
Este código é completamente não testado e pode conter erros de digitação, mas deve apontar você na direção certa.