Blackberry and address book sync

HCL Domino Domino Forum
1

I’m creating a new document in the personal address book from information in another database. this new document is being created field by field either using call item.CopyItemToDocument(x,x) or. Set Item = New NotesItem( x,x,x).

The document is creating properly but will not sync with the BB until it is opened and saved in Notes.

I have reviewed the fields before and after opening and saving the document. There are no new fields being created.

Does anyone have an idea what the BB is keying off of to syncronize the entry?

Thanks

2

Subject: Blackberry and address book sync

try a doc.computewithform before saving the back end doc.

3

Subject: RE: Blackberry and address book sync

Thanks Bob, I should post my code.

Below is the code that is actually creating the document.

I found that the$Revisions field would be replaced with $UpdatedBy if I only saved it once. By Setting the $Revisions field twice and saving twice I end up with both fields.

This gets a bit repetitive.

Sub CopyRolodex

Set destnote=destdb.createdocument



Set item = sourcenote.GetFirstItem("Firstname")

Call item.copyitemtodocument(destnote, "Firstname")

Set item = sourcenote.GetFirstItem("MiddleInitial")

Call item.copyitemtodocument(destnote, "MiddleInitial")

Set item = sourcenote.GetFirstItem("Lastname")

Call item.copyitemtodocument(destnote, "Lastname")

Set item = sourcenote.GetFirstItem("MailAddress")

Call item.copyitemtodocument(destnote, "MailAddress")

Set item = sourcenote.GetFirstItem("JobTitle")

Call item.copyitemtodocument(destnote, "JobTitle")

Set item = sourcenote.GetFirstItem("CompanyName")

Call item.copyitemtodocument(destnote, "CompanyName")

Set item = sourcenote.GetFirstItem("Lastname")

Call item.copyitemtodocument(destnote, "Lastname")

Set item = sourcenote.GetFirstItem("StreetAddress_Pr_Bu")

Call item.copyitemtodocument(destnote, "OfficeStreetAddress")

Set item = sourcenote.GetFirstItem("City_pr_bu")

Call item.copyitemtodocument(destnote, "OfficeCity")

Set item = sourcenote.GetFirstItem("State_pr_bu")

Call item.copyitemtodocument(destnote, "OfficeState")

Set item = sourcenote.GetFirstItem("Zip_pr_bu")

Call item.copyitemtodocument(destnote, "OfficeZip")

Set item = sourcenote.GetFirstItem("Country_pr_bu")

Call item.copyitemtodocument(destnote, "OfficeCountry")

Set item = sourcenote.GetFirstItem("OfficePhoneNumber")

Call item.copyitemtodocument(destnote, "OfficePhoneNumber")

Set item = sourcenote.GetFirstItem("OfficeFaxPhoneNumber")

Call item.copyitemtodocument(destnote, "OfficeFaxPhoneNumber")

Set item = sourcenote.GetFirstItem("CellPhoneNumber")

Call item.copyitemtodocument(destnote, "CellPhoneNumber")

Set item = sourcenote.GetFirstItem("StreetAddress")

Call item.copyitemtodocument(destnote, "StreetAddress")

Set item = sourcenote.GetFirstItem("City")

Call item.copyitemtodocument(destnote, "City")

Set item = sourcenote.GetFirstItem("State")

Call item.copyitemtodocument(destnote, "State")

Set item = sourcenote.GetFirstItem("Zip")

Call item.copyitemtodocument(destnote, "Zip")

Set item = sourcenote.GetFirstItem("Country")

Call item.copyitemtodocument(destnote, "Country")

Set item = sourcenote.GetFirstItem("PhoneNumber")

Call item.copyitemtodocument(destnote, "PhoneNumber")

Set item = sourcenote.GetFirstItem("HomeFaxPhoneNumber")

Call item.copyitemtodocument(destnote, "HomeFaxPhoneNumber")

Set item = sourcenote.GetFirstItem("Spouse")

Call item.copyitemtodocument(destnote, "Spouse")

Set item = sourcenote.GetFirstItem("Children")

Call item.copyitemtodocument(destnote, "Children")

Set item = sourcenote.GetFirstItem("FullName")

Call item.copyitemtodocument(destnote, "FullName")



destnote.Type="Person"

destnote.form="Contact"



Call destnote.ComputeWithForm( False, False )



Set item = New NotesItem(destnote, "$Revisions", Date)

item.IsSummary = True



Call destnote.save (True,False)



Set item = New NotesItem(destnote, "$ConflictAction", "1")

Set item = New NotesItem(destnote, "$ExternalFields", "1")

Set item = New NotesItem(destnote, "$Revisions", Date)

item.IsSummary = True

Set item = New NotesItem(destnote, "OriginalModTime", Date)

item.IsSummary = True



Call destnote.save (True,False)

End Sub