1: 2: 3: 4: 5: 6:
If objRecip.AddressEntry.DisplayType = 1 Then 'this is a list, not a person Set myDistList = objRecip.AddressEntry For y = 1 To myDistList.MemberCount response = myDistList.GetMember(y).MeetingResponseStatus Next y