[RESOLVED] Run-time Error: 380 - Invalid property value.

[Giftx]

Good morning everybody:

I am attempting to populate a listview control on Form Load()
and I get a Run-Time Error: 380 - Invalid property value. Below is the line that generated the error:

lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address

Below is also my entire FormLoad module:

Private Sub Form_Load()
Set OutlookApp = New Outlook.Application
Set OutlookMailItem = OutlookApp.CreateItem(olMailItem)
Set OutlookNameSpace = OutlookApp.GetNamespace("MAPI")

lvw.ListItems.Clear

For Each OutlookAddressList In OutlookNameSpace.AddressLists
    For Each OutlookAddressEntry In OutlookAddressList.AddressEntries
        lvw.ListItems.Add , , OutlookAddressEntry.Name
        lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address
        lvw.ListItems(lvw.ListItems.Count).SubItems(2) = OutlookAddressEntry.ID
        lvw.ListItems(lvw.ListItems.Count).Tag = OutlookAddressEntry.ID
    Next
Next
End Sub

Any help will b greatly appreciated
Thanks,
GiftX

[WoF]

This error comes up if you havent created columns in your ListView control.
The .SubItems() property is available only if you have more than one column created at design time. You also can add columns at runtime, but you must not access .SubItem() unless you have created them.

If you want to create ColumnHeaders at runtime, you'd use

  ListView1.ColumnHeaders.add , , "Headertext"

The number of items in your ColumnHeaders collection determines the number of .SubItems() properties available to a ListItem.

[WoF]

To be more specific to your sample code:

Private Sub Form_Load()
Set OutlookApp = New Outlook.Application
Set OutlookMailItem = OutlookApp.CreateItem(olMailItem)
Set OutlookNameSpace = OutlookApp.GetNamespace("MAPI")

lvw.ListItems.Clear

'create columns
lvw.ColumnHeaders.Clear
lvw.ColumnHeaders.Add , ,"Address"
lvw.ColumnHeaders.Add , ,"ID"
'now .SubItems(1) and .SubItems(2) are available to fill in.


For Each OutlookAddressList In OutlookNameSpace.AddressLists
    For Each OutlookAddressEntry In OutlookAddressList.AddressEntries
        lvw.ListItems.Add , , OutlookAddressEntry.Name
        lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address
        lvw.ListItems(lvw.ListItems.Count).SubItems(2) = OutlookAddressEntry.ID
        lvw.ListItems(lvw.ListItems.Count).Tag = OutlookAddressEntry.ID
    Next
Next
End Sub