Someone told me another easy way is to assign contacts to a category...and then there is the userform22 that has the code re a combobox that opens up the list of the categories...but when I click on a category there is the error: End With without With...so it does not open up the category and the list of the contacts in the category....here is the code re the Userform22....and I have it as a link to the OutlookSession which is how I run it. Any changes that fixes it...and shows the list of the contacts in the category I click on...also, need the category list to be on a alphabetic list....A down to Z etc...
Private Sub ComboBox26_Change()
For Each item In objoutlook.contactItems
If item.Category = Category Then
Me.ComboBox1.AddItem item.FullName
End If
Next
End With
End Sub
Private Sub UserForm_Initialize()
Dim Category
For Each Category In Application.Session.Categories
Me.ComboBox26.AddItem Category
Next
End Sub
Private Sub ComboBox26_Change()
For Each item In objoutlook.contactItems
If item.Category = Category Then
Me.ComboBox1.AddItem item.FullName
End If
Next
End With
End Sub
Private Sub UserForm_Initialize()
Dim Category
For Each Category In Application.Session.Categories
Me.ComboBox26.AddItem Category
Next
End Sub