Problem with Contacts

[willisgt]

This bit of code crashes for some strange reason:

	Contact.New1
	ContactsCollection.New1( "Contacts" )

	ContactsCollection.SortItems( "LastName", false )

	For i = 0 To ContactsCollection.Count - 1

		Contact.Value = ContactsCollection.GetItem(i)
		
		ListBox1.Add( Contact.FirstName & " " & Contact.LastName )


		website	= contact.WebPage

                          msgbox( website )

	Next

The problem is on the line:

		website	= contact.WebPage

(I'm sure because if I comment it out, it works.)

Any ideas?


Gary

[Erel]

What does the error message say?

[willisgt]

I must be losing my mind - i should have included this in the original post.

The error message says:
'An error occurred on sub (sub name)

NullReferenceException

Continue? (y/n)'


Gary

[Erel]

Try to add check for null values:

If Not (IsNull(contact.WebPage)) Then website = contact.WebPage else website = ""

[willisgt]

I made the change you suggested, but the problem persists.

The Outlook.dll version is 1.0.2900.27127.
The OutlookDesktop.dll version is 1.0.2900.27246.

The entire program is attached.


Gary

[Erel]

Yes, IsNull will not help here.
Contact.WebPage will only work properly if the contact's webpage field is a valid URL.
The "http://" prefix is also required.
This is a limitation of the underlying .Net CF method.
The only workaround I can think of is to catch this error:

        spouse                = contact.Spouse
        suffix                = contact.Suffix
        title                = contact.Title
        website                = GetWebsite
        table1.AddRow(... )
    Next
End Sub

Sub GetWebsite
    ErrorLabel(errGetWebsite)
    Return contact.WebPage
errGetWebsite:
    Return ""
End Sub

[willisgt]

Aha! That did the trick!

Thanks!