jump to navigation

Solve problem “Error processing calendar profile document ( NoteID: ########) in database ####.nsf: Can’t find user in Name and Address Book” 12 July 2010

Posted by tathitsa in Uncategorized.
Tags:
trackback

Jengkel juga melihat error “SchedMgr: Error processing calendar profile document ( NoteID: ########) in database ########.nsf: Can’t find user in Name and Address Book”, setelah tanya om google ternyata error itu disebabkan oleh calendar profile document yang berisi nama user yang tidak terdapat pada names.nsf.

Cara termudah untuk mengatasinya adalah delete profile document tersebut dan buat lagi.

Untuk delete sih bisa dibuatkan script, seperti berikut:

Sub Initialize()
Dim s As New NotesSession
Dim dbNames As NotesDatabase
Dim docNames As NotesDocument
Dim viewNames As NotesView
Dim dbMail As NotesDatabase
Dim docMail As NotesDocument

‘This line returns the name of the mailfile

Set dbNames = s.getdatabase(“NAMA_SERVER”,”names.nsf”)
If dbNames.Isopen Then
Set viewNames = dbNames.Getview(“People”)
Set docNames = viewNames.Getfirstdocument()
While Not (docNames Is Nothing)
mailfile = docNames.mailfile(0)
‘ delete CalendarProfile di mailfile
Set dbMail = s.getdatabase(“NAMA_SERVER”,mailfile)
If dbMail.Isopen then
Set docMail = dbMail.getprofiledocument(“CalendarProfile”)
If Not docMail.isnewnote Then
Call docMail.remove(True)
End If
End If
Set docNames = viewNames.Getnextdocument(docNames)
Wend
End If
End Sub

Nah untuk buatnya ini yang butuh bantuan user😀 …. tinggal kirim pengumuman aja suruh buka Preferences yang ada diatas kanan iNotes dan Simpan.

Mudah2an usernya pada nurut2 karena kalo nggak akan muncul error:

“SchedMgr: Error processing calendar profile document (NoteID: NT0000xxxx) in database filename.nsf: Can’t find $BusyName field on profile”

Tapi error ini masih akan solve jika user buka Preferences dan menyimpannya.

Comments»

1. tathitsa - 15 July 2010

ternyata setelah diteliti lagi pada documentnya, yang problem adalah field AltOwner & $BusyName…

Solusi untuk update Field AltOwner & $BusyName adalah:

Sub Initialize()
Dim s As New NotesSession
Dim dbNames As NotesDatabase
Dim docNames As NotesDocument
Dim viewNames As NotesView
Dim mailfile As String
Dim dbMail As NotesDatabase
Dim docMail As NotesDocument
Dim itemOwner As NotesItem
Dim itemAltOwner As NotesItem
Dim itemBusyName As NotesItem

Set dbNames = s.getdatabase(“NAMA_SERVER”,”names.nsf”)
If dbNames.Isopen Then
Set viewNames = dbNames.Getview(“People”)
Set docNames = viewNames.Getfirstdocument()
While Not (docNames Is Nothing)
mailfile = docNames.mailfile(0)
‘ update CalendarProfile di mailfile
Set dbMail = s.getdatabase(“NAMA_SERVER”,mailfile)
If dbMail.Isopen then
Set docMail = dbMail.getprofiledocument(“CalendarProfile”)
If Not docMail.isnewnote Then
Set itemOwner = docMail.Getfirstitem(“Owner”)
Set itemAltOwner = docMail.Getfirstitem(“AltOwner”)
Set itemBusyName = docMail.Getfirstitem(“$BusyName”)
If Not ((itemOwner Is Nothing) or (itemOwner Is Nothing) Or (itemBusyName Is Nothing)) Then
docMail.AltOwner = docMail.Owner(0)
docMail.Getfirstitem(“$BusyName”).Values = docMail.Owner(0)
Call docMail.save(True,False)
End If
End If
End If
Set docNames = viewNames.Getnextdocument(docNames)
Wend
End If
End Sub


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: